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haben nicht nur diese Katzen. 
Auch Ihr Computer braucht ständig 
gute Software als „Futter“. 


Wer sonst als Ihre PC International 
kann diesen Hunger stillen? 





in ihrer Disketten- 


3 
in gelöschte Files 


Damit Sie immer obenauf sind, 
noch heute abonnieren. 





Ein Abonnement 
ist praktisch und gewährt 
zusätzlich noch Preisvorteile. 


» ne - ntorr . r nastot im Ahnnnomont: 
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Liebe Leser, 


zu den Zeiten, in denen man schenkt oder beschenkt wird, sprießen die 
Sonderangebote wie Pilze aus dem Boden. Und da der Computer als 
Geschenk hinter Parfum, Spielzeug und Bekleidung bereits einen festen 
Stellenwert als Geschenk im Konsumbereich erreicht hat, findet man auch 
zunehmend mehr befristete Angebote in diesem Bereich. Da werden Computer 
mit Zubehör und -zig Programmen zu Preisen an den/die Mann/Frau 
gebracht, die noch vor Jahresfrist allein für die Software gezahlt werden 
mußten — den Computer gibt es quasi gratis dazu (oder umgekehrt). 


Den Verbraucher erfreuen solche Praktiken (es sei denn, Mann/Frau hat den 
Computer wenige Tage vor einer solchen Angebotsaktion erworben), bekommt 
man doch entsprechend mehr für's Geld geboten. 


Auch in diesen Wochen werden Sie beim Bummel durch Kaufhäuser und 
Computershops diese Angebote gesehen haben. Was ehemals einer schon fast 
elitären Gruppe vorbehalten war, ist inzwischen zum Massenkonsumartikel 
geworden. Immer öfter sieht man Leute, die quasi im Vorbeigehen noch einen 
Computer im besonders aufbereiteten “Aktionspaket“ als Geschenk für Ihre 
oder der Verwandten Kleinen mitnehmen. 


Und trotz alledem sind in den nächsten Jahren noch enorme Zuwachsraten im 
EDV.Sektor zu erwarten. 


Dies hat zur Folge, daß die von “alten Hasen“ als Heimcomputer 
verschrienen Systeme wie AMSTRAD CPC oder C-64 auch in Zukunft ihre 
Existenzberechtigung haben und als ideale Einstiegscomputer angeboten 
werden. 


Und daß man damit weit mehr anfangen kann, als manche uns glauben 
machen wollen, das brauche ich Ihnen ja nicht zu erzählen. 


Herzlichst Ihr 


Shlau. MM 


Stefan Ritter 
Chefredakteur 
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Unser Floppykurs vermittelt Ihnen die letzten Befehle zur Floppy-Pro- 
grammierung. 
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Aktuell 


Postkarten gegen ’Computerdeutsch’ Neues von AMSTRAD : 


Haben Sie sich auch schon ein- 
mal über unverständliches 
’Fachchinesisch’ oder hochtra- 
bendes ’Computerdeutsch’ geär- 
gert? 

Die Spezialagentur electronic 
promotion aus München bringt 
jetzt Postkarten heraus, auf de- 
nen Fachbegriffe aus der Com- 
puterbranche in die lateinische 
Sprache übersetzt werden und 
den Empfänger garantiert 
schmunzeln lassen. Oder wuß- 
ten Sie, daß mit “Calculator 
proceduralis centralis“ eine 
CPU (Zentraleinheit) und mit 
“Superficies utilisatoris“ eine 









Benutzeroberfläche gemeint ist? 
Diese Karten sollen aber mehr 
sein als nur ein Gag. Sie sollen 
auch dazu dienen, ein Problem- 
bewußtsein zu schaffen: Es soll 
gerade bei der jungen Compu- 
tergeneration mehr Verständnis 
für die deutsche Sprache ge- 
schaffen werden. 

Wer sich für die Karten interes- 
siert, kann sie (insgesamt 16) 
zum Selbstkostenpreis von DM 
5,— bei electronic promotion 
bestellen. 

Info: electronic promotion 
Gaußstr.1, D-8000 München 80 
Tel.: 089/983455 


WESTERN RRTAEIITTANGT 





Einen neuen Matrixdrucker in 
der Low-Cost-Klasse bietet die 
Firma Mannesmann Tally mit 
dem MT®81 an. Dieser Neun-Na- 
del-Drucker verfügt serienmä- 
Big über eine Parallel-Schnitt- 
stelle, ist somit problemlos an 
fast alle Computer (darunter 
auch die CPC-Reihe von AM- 
STRAD) anzuschließen, eine 
Version mit serieller Schnittstel- 
le ist ebenfalls erhältlich. 


Der Drucker entspricht direkt 
der deutschen Schrift, es brau- 
chen also keine Einstellungen 
vorgenommen zu werden. Eine 


Verarbeitung von Einzelblättern 
wie auch Endlospapier. ist mög- 
lich, der Einzelblatt-Einzug 
muß optional hinzugekauft wer- 
den. Der Ausdruck geschieht 
mittels eines etwas teureren Kar- 
bonbandes, da der Drucker über 
einen speziellen Druckkopf ver- 
fügt. 

Der Drucker wird laut Herstel- 
ler für einen Preis von DM 399,- 
zu beziehen sein. 

Info: Mannesmann Tally GmbH 
Glockenstr.4 

D-7915 Elchingen 

Tel.: 07308/80-0 


EGA und Hercules-Kit für den PC 1512 


PC 1512-Besitzer, die vom vor- 
handenen MDA- oder CGA- 
Grafikadapter auf EGA- oder 
Hercules-Grafik umsteigen wol- 
len, können zwei Erweiterungs- 
Kits von der Firma AMSTRAD 
erhalten. Der Hercules-Kit be- 
steht aus einem Hercules-Mo- 
nochrom-Monitor und der dazu- 
gehörenden Hercules-Karte und 
kostet DM 599, —. 


Das zweite Paket besteht aus ei- 
nem EGA-Farbmonitor mit 
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EGA-Karte und ist zu einem 
Preis von DM 1899,— erhält- 
lich. Beide Kits sind recht ein- 
fach an den PC anzuschließen, 
die Grafikkarten werden jeweils 
in einem Erweiterungs-Steck- 
platz eingesteckt und durch ent- 
sprechende Kabel mit dem Mo- 
nitor verbunden. 


Info: AMSTRAD GmbH, 
Robert-Koch-Str. 5 
D-6078 Neu-Isenburg 
Tel.: 06102 / 3002-0 


Speziell für das noch nicht EDV- 
organisierte Büro, aber auch als 
Heim-Komplettlösung bietet die 
Firma AMSTRAD ein Produkt- 
paket, bestehend aus MS- 
DOS-Computer, Drucker und 
Software,an. 


Der Käufer kann aus vier Ange- 
boten wählen, diese bestehen 
aus: 


— PC 1512 (512KB) mit zwei 
Laufwerken, Drucker DMP 
3160 (Neun-Nadel mit NLQ), 
Software-Paket “World of 
Word“ bestehend aus Text- 
verarbeitung in deutscher 
Sprache mit Adreßverwal- 
tung, Serienbrief-Funktion, 
Mischen von Text und Gra- 
fik,  Mehrspalten-Verarbei- 
tung inkl. Monochrom-Mo- 
nitor für DM 1.999, —, 


— PC 1512 mit zwei Laufwer- 
ken, DMP 3160, Software-Pa- 
ket inkl. CGA-Farbmonitor 
für DM 2.399, —, 





Die Firma Heimsoeth & Bor- 
land bietet eine Werkzeugsamm- 
lung namens Turbo-BASIC-Da- 
tabase an, mit deren Hilfe sich 
professionelle Datenbanksyste- 
me mit mehreren Schlüsseln pro 
Datensatz, praktisch unbegrenz- 
tem Fassungsvermögen und 
schnellen Such- und Einfüge- 
routinen schreiben lassen. Das 
Programmier-Ergebnis läßt sich 
als Turbo-BASIC-Quelltext zum 
Einbau in die eigenen Program- 
me ablegen. 


Zur Toolbox gehören Routine- 
sammlungen wie ACCESS zum 
Umsortieren von Mengen an 
Datensätzen oder SORT zum In- 
dizieren und Sortieren nach 
mehreren Schlüsseln. Dazu ste- 


— PC 1640 (640 KB) mit zwei 
Laufwerken, Drucker LQ 
3500 (24-Nadel-Drucker mit 
LQ- Schönschrift), Software- 
Paket inkl. Monochrom-Mo- 
nitor für DM 2.699, —, 


— PC 1640 mit zwei Laufwer- 
ken, LQ 3500, Software-Pa- 
ket, inkl. CGA-Farbmonitor 
für DM 3.099, —. 


Außerdem bietet die Firma den 
portablen PPC 512 jetzt auch mit 
eingebautem Laufwerk und ein- 
gebauter Festplatte im 3,5* 
Format an. Die Festplatte hat 
eine Speicherkapazität von 20 
MB und eine Zugriffszeit von 58 
mS. Die Leistungsaufnahme be- 
trägt 3,5 Watt. Die Festplatte 
verfügt über ein AUTOPARK- 
System, um eventuellen Er- 
schütterungen oder Stößen vor- 
zubeugen. Der Preis für den 
PPC 512 mit Festplatte beträgt 
DM 3.599, — 


Info: AMSTRAD GmbH 
Robert-Koch-Str. 5 
D-6078 Neu-Isenburg 
Tel.: 06102/300220 


Turbo BASIC Database Toolbox 


hen dem Anwender noch Routi- 
nen für Bildschirmmasken, 
Pulldown-Menüs und für den 
Datenimport und -export zu an- 
deren Datenbanken zur Verfü- 
gung. Die Turbo-BASIC-Data- 
base-Toolbox wird mit umfang- 
reichem, deutschem Handbuch 
auf Disketten im 5,25“ oder 
3,5°* Format für IBM- und kom- 
patible PC ausgeliefert, der 
Preis beträgt bei der Nachnah- 
me DM 291,—. 


Info: Heimsoeth software 

GmbH & Co., 

Produktions- und Vertriebs-KG, 
Lindwurmstr. 88 

D-8000 München 2, 

Tel.: 089/720100 


NBSILBBESHIENELAIE 


Der Hofacker-Verlag in Holzkir- 
chen bietet für PC-Besitzer eine 
Taschentabelle MS-DOS für 
IBM-PC und Kompatible an. 
Diese Tabelle dient als schnelles 
Nachschlagewerk, das neben 
dem Arbeitstisch beim Compu- 
ter liegen soll. 


Die einzelnen MS-DOS-Befehle 
werden alphabetisch aufgeführt 


und kurz beschrieben. Dabei 
werden alle Versionen bis 4.0 
berücksichtigt. 


Der Preis dieser Tabelle beträgt 
DM 9,80. 


Info: Hofacker Verlag 
Tegernseer Str. 18 
D-8150 Holzkirchen 


Aktuell 


Bücher-Datenbank auf Diskette VASTPRINT und VASTSCREEN - PC-Verbesserungen 


Kataloge entpuppen sich manch- 
mal als ”"Wälzer’ und damit mei- 
stens als unhandlich und zeitauf- 
wendig bei der Suche bestimm- 
ter Artikel. Die Firma FEL- 
TRON/ZEISSLER bringt des- 
halb einen Elektronik-Fach- 
buch-Katalog als Datenbank auf 
Diskette heraus. 


In dieser ’Buch-Disk’ stehen 
z.Zt. mehr als 4200 aktuelle Ti- 
tel von allen bekannten Verla- 
gen, die man nach Suchkriterien 
wie Autor, Titel oder selbstge- 
wählten Stichwörtern durchfor- 
sten und damit den gewünschten 
Titel finden kann. Die ”Buch- 
Disk’Reihe wird dabei stetig 
fortgeführt, so daß man alle Dis- 
ketten auf einer eventuell vor- 
handenen Festplatte zu einer 
kompletten Datenbank verbin- 
den kann. 





HAUPTMENUE 


Mylius-Master nennt sich eine 
Benutzeroberfläche für IBM- 
und kompatible PC, die sämtli- 
che Operationen in deutscher 
Schrift darstellt. Mylius-Master 
ist für nicht so erfahrene PC-An- 
wender konzipiert und soll den 
Umgang mit dem Computer we- 
sentlich erleichtern. Dazu ge- 
hört neben dem komfortablen 
Arbeiten mit den vorhandenen 
MS-DOS-Befehlen auch das Er- 
stellen eines Lademenüs für die 
am meisten benötigten Pro- 
gramme. Die für den Anwender 
wesentlichen DOS-Befehle kön- 
nen einmalig eingegeben und 
dann immer wieder aus dem 


Menü heraus aufgerufen 
werden. 
Die jeweiligen Operationen 


können durch Aufruf mehrerer 
Hilfsseiten eingesehen werden, 


Die "Buch-Disk’ wird als IBM- 
standard-formatierte Diskette 
für MS-DOS gegen eine Schutz- 
gebühr von DM 7,20 (inkl. 
Mwst, inkl. Versandkosten, ins- 
gesamt drei Disketten) ausgelie- 
fert. 


Enthalten sind Buchtitel der 


Verlage Addison-Wesley 
(deutsch), Datacom, Franzis’, 
Hanser, Hüthig, IWT, KRS, 


Markt & Technik, McGraw Hill 
(deutsch), Sybex (deutsch), Vie- 
weg, Vogel und vieler andere. 


Info: FELTRON Elektronik 
ZEISSLER & Co. GmbH 
Auf dem Schellerod 22 
Postfach 1263 und 1862 
D-5210 Troisdorf 1 

Tel.: 02241/4100-1 bis -5 


Mylius-Master — Benutzeroberfläche für den PC 





dem Benutzer wird dadurch 
auch innerhalb der Benutzer- 
oberfläche jederzeit eine Hilfe- 
stellung gegeben. 


Mylius-Master ist am sinnvoll- 
sten in Verbindung mit einer 
Festplatte einzusetzen. Das Pro- 
gramm läßt sich auf zwei Arten 
installieren, einmal speicherre- 
sident durch eine Anderung der 
CONFIG.SYS-Datei, einmal 
nicht speicherresident durch Er- 
gänzung der AUTOEXEC.BAT- 
Datei. 


Das Programm ist zu einem 
Preis von DM 390,— auf 5,25% 
Diskette erhältlich. 


Info: Mylius Computersysteme 
München GmbH 
Karl-Theodor-Str. 55 

D-8000 München 40 

Tel.: 089/3061070 


Zwei Programme, die für spe- 
zielle Problemfälle entwickelt 
wurden, bietet die Firma Dawi- 
control aus Göttingen für den 
PC-Besitzer an: 


VASTPRINT ist ein residentes 
Druckerpuffer-Programm mit 
frei wählbarem, bis zu 960 KB 
großem Pufferbereich für alle 
IBM PC/XT/AT’s und Kompati- 
ble ab der MS-DOS-Version 2.0. 
VASTPRINT hat einen Haupt- 
speicherbedarf von 16 KB (plus 
Pufferbereich), enthält ein stän- 
dig aufrufbares Control-Menü, 
eine dynamische Time-Out-Re- 
gelung und eine benutzerdefi- 
nierte Zeichen-Austauschtabel- 
le. VASTPRINT ermöglicht di- 
rektes Ansteuern von Drucker- 
funktionen und ist kompatibel 
zu anderen speicherresidenten 
Programmen wie Sidekick. 
Dazu werden alle Speicherer- 
weiterungs-Standards untersützt. 

Auf der Diskette befindet sich 
außer dem Drucker-Spool-Pro- 
gramm noch ein Installations- 
programm. 





Der CMZ-Verlag bietet für die 
Besitzer eines PCW- (Joyce-) 
Computers ein neues Programm 
namens ’Flipper’ an, welches 
für den deutschen Markt aus 
England erworben wurde. 

"Flipper’ ermöglicht es, inner- 
halb von drei Sekunden von 
CP/M nach LocoScript oder 
zwischen zwei CP/M-Program- 
men umzuschalten. Damit ent- 
fällt das umständliche Booten 
des zweiten Programmes, zum 


Schneller Programmwechsel für die PCWs 





Das zweite Programmpaket na- 
mens VASTSCREEN richtet 
sich vor allem an Besitzer einer 
Hercules- oder kompatiblen 
Monochrom-Grafikkarte. 

VASTSCREEN ist ein residen- 
tes Programm zur Emulation 
von CGA- Karten, die Emula- 
tion erfolgt dabei in Echtzeit, 
d.h., die Programme laufen in 
der gleichen Zeit wie vorher ab. 


Der Anwender kann unter insge- 
samt sieben Modes wählen, dar- 
unter Zeichenbreiten von 40 
oder 80 sowie Pixelgrößen von 
320 und 640. 


Eine zum Programmpaket zuge- 
hörige Datei macht es möglich, 
Fremdprogramme (z.B. Spiele) 
automatisch nach dem Start von 
VASTSCREEN zu booten. 


VASTSCREEN und VASTPRINT 
kosten jeweils DM 49,95. 


Info: Dawicontrol GmbH 
Postfach 1709 
D-3400 Göttingen 


Umschalten genügt der Druck 
auf die Tastenkombination 
SHIFT + EXTRA + EXIT. 
‘Flipper’ wird in einer deut- 
schen Fassung mit deutschem 
Handbuch zu einem Preis von 
DM 128,- zu erhalten sein. 

Info: 

CMZ- Verlag 

Winrich C.W. Clasen 
Borgswiese 9-11 

D-4650 Gelsenkirchen 2 

Tel.: 0209/777896 
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An unsere Leser 


Die Rubrik »Leserbriefe« ist 
eine Einrichtung für alle Le- 
ser, die in irgendeiner Form 
Fragen, Probleme oder Anre- 
gungen zu Produkten, Pro- 
grammierproblemen oder zu 
unserer Zeitschrift haben. 
Selbstverständlich sind wir 
bemüht, alle Leserfragen zu 
beantworten. Doch haben 
Sie bitte Verständnis, daß wir 
nicht alle eingehenden Briefe 
persönlich beantworten kön- 
nen. Oft erreichen uns meh- 
rere Briefe zum gleichen 
Thema, einer davon wird 
dann stellvertretend für alle 
in unserer Zeitschrift beant- 


wortet. Ihre PC-Redaktion 


Neue Durchwahlnummern 
für die Hotline 


Für eilige Anfragen können Sie 
jetzt Ihren Redakteur direkt er- 
reichen. Jeden Mittwoch von 
17.00 — 20.00 Uhr stehen Ih- 
nen zur Verfügung: 


Claus Daschner (CPC) 
= (0 5651) 8009 - 16 





Jürgen Borngießer 
(CPC/Hardware) 
© (0 56 51) 8009 - 17 


Ralf Schößler (PCW) 
Michael Ebbrecht (PCW/PC) 
= (05651) 8009 - 18 


PS: Die Redaktion behält sich vor, Leserzuschriften in gekürzter 
Form wiederzugeben 





ARTWORX und NLQ 401 


Das von mir abgetippte Pro- 
gramm ARTWORX aus Heft 
11/88 läuft wunderbar. 
Doch leider habe ich Proble- 
me mit dem Ausdruck auf 
dem Schneider NLO 401. 
Mehrere Versuche, dieses 
Problem zu beseitigen, 
schlugen fehl. Jetzt meine 
Frage: Wie kann ich das Pro- 
gramm ändern, so daß es 
auch mit meinem Drucker 
läuft? 
Manfred Neding, 
Tostedt 


Diese und ähnliche Anfragen 
haben wir zu ARTWORX 
bekommen und möchten 
dazu etwas anmerken: 
Grundsätzlich, wenn ein 
Programm veröffentlicht 
wird, das eine Hardcopy- 
Routine für einen bestimm- 
ten Drucker besitzt, ist es 
uns nicht möglich, eine An- 
passung für andere Drucker 
vorzunehmen oder die Li- 
stings zu ändern. Dies ist si- 
cherlich verständlich, wenn 
Sie den Zeitaufwand mit ein- 
berechnen, der dafür not- 
wendig wäre. Außerdem ste- 
hen der Redaktion nur ein 
paar Drucker zur Verfü- 
gung. 

Nun aber eine gute Nach- 
richt. Im Heft 1/89 finden 
Sie ein Programm, das Ihnen 
ein Arbeiten mit ART- 
WORX und NLQ 401 er- 
mösglicht. 
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Bis dahin bitten wir noch um 
etwas Geduld. 


Red. 


Betrifft: Leserbrief aus 
Heft 10/88, Herrn Spietz 


Eine mögliche Ursache für 
den Fehler beim Ladevor- 
gang bzw. bei der Anwen- 
dung des CAT-Befehls: 


Sollte Herr Spietz seinen Mo- 
nitor rechts neben seinem 
Computer (Tastatur) stehen 
haben, so wird die Floppy 
durch die Nähe des im Moni- 
tor befindlichen Netzgerätes 
ungünstig beeinflußt (ma- 
gnetische Wellen). Es genügt 
schon, die Tastatur vorzuzie- 
hen, damit die Floppy aus 
dem (Wellen-) Bereich des 
Netzgerätes kommt. 


Manfred Reinbold, 
Rödermark 


Betrifft: Leserbrief zu M. 
Spietz aus Heft 10/88 


Auch ich stand vor dem glei- 
chen Problem. Als Fehler 
entpuppte sich dann das Ver- 
längerungskabel von der Ta- 
statur zum Monitor mit der 
Bezeichnung “12V DC“. 
Ohne die drei Verlänge- 
rungskabel läuft wieder alles 
einwandfrei. Übrigens, nach 
dem Kauf eines PC 1640 
konnte ich mich nicht vom 


CPC 6128 trennen. Bei mir 

werden beide Computer be- 
nulizt. 

Hans Peter, 

Gerlingen 


Betrifft: Leserbrief aus 
Heft 11/88, Herrn 
Lehmbrock 


Eigentlich sollte mein Pro- 
gramm längst bei der Post 
sein, da fiel mir der Leser- 
brief von Herrn Lehmbrock 
aus Heft 11/88 auf. Durch 
ein einfaches Andern einer 
DATA-Zeile ist eine solche 
Fehlermeldung zu beheben. 
a) Die CPCs 664 und 6128 
speichern, im Gegensatz zum 
464, die Länge eines Strings 
zweimal, nämlich im De- 
scriptor und direkt vor dem 
String. Im Speicher stehen 
also nach einem String zwei 
Bytes, erst LOW, dann 
HIGH. Diese geben die Län- 
ge des nächsten Strings an. 
b) Der RSX-Befehl| PRINT 
ruft zuerst TAG auf. Dann 
wird die Speicherstelle er- 
mittelt, die direkt hinter dem 
auszugebenden String liegt. 
Der Inhalt dieser Speicher- 
stelle wird intern zwischen- 
gespeichert und durch &00 
ersetzt. Dann gibt eine BA- 
SIC-Routine den String aus; 
diese erkennt das Ende des 
Strings an dem Byte &00. 
Sodann wird mittels “LD 
(HL),A“ der alte Inhalt zu- 
rückgeschrieben. 

Und jetzt geht es los: 

Der BASIC-Befehl TAGOFF 
wird aufgerufen, ohne das 
der BASIC-PC (vom Register 
HL) mit vernünftigen Werten 
geladen wird. Das Register 
HL zeigt nämlich immer 
noch auf das LOW-Byte der 
Länge eines anderen Strings, 
im Normalfall ist das der 
String, der als vorletzter de- 
finiert wurde. War dieser 
String nun zufällig 35 Byte 
lang, so erkennt TAGOFF 
das Doppelkreu (#), 
CHR$(35), und entscheidet, 
daß er in einem Window ak- 
tiv werden soll. Er erhöht 
also den BASIC-PC, und 
sucht an dieser Stelle eine 
Konstante oder Variable. Er 
findet aber nur das HIGH- 
Byte einer Stringlänge, die- 
ses ist immer gleich &00. 
Das ist aber das Kennzei- 


chen für Zeilenende, also 
bleibt nichts anderes übrig 
als eine Fehlermeldung. Ich 
schlage folgende Abhilfe 
vor: Anderung einer Zeile im 
BASIC-Lader: 


410 DATA 23, DF, FF, AF, AF, 
OD 

Vor dem Aufruf von TA- 
GOFF wird damit der Befehl 
INC HL ausgeführt, so das 
HL dann — außer beim aller- 
ersten im Programm defi- 
nierten String — immer auf 
ein &O0-Byte zeigt. 

Günter Haake, 
Lübbecke 


Und damit hätten wir ein 
“Geheimnis“ mehr entlüftet. 
Vielen Dank. Red 


Probleme mit der Floppy 


Als Besitzer eines CPC 6128 
mit Vortex F1-X- Laufwerk 
habe ich drei Probleme, zu 
denen ich Lösungen suche: 
I. Bei der Context- Textver- 
arbeitung in Verbindung mit 
einem Typenraddrucker EXP 
400 setzt der Drucker zu- 
nächst einen Stern (*) auf 
den linken Rand und ver- 
schiebt die ganze erste Zeile 
um ein Zeichen nach rechts. 
Dieses Problem tritt bei ei- 
nem Matrixdrucker NLO 401 
nicht auf. 
2. Gibt es eine Möglichkeit, 
mit dem F1-X- Laufwerk Dis- 
ketten zu lesen, die auf einem 
5.  1/4“-Cumana-Laufwerk 
beschrieben wurden? 
3. Welche Möglichkeiten be- 
stehen, die mit dem FI-X- 
Laufwerk beschriebenen 
Disketten auf einem PC zu le- 
sen bzw. auf diesen zu über- 
tragen? 

Wolfgang Rajek, 

Hamburg 


Zu Problem 1 haben wir lei- 
der keine Lösung parat, das 
Seltsame ist, daß die meisten 
Typenraddrucker bei der Ini- 
tialisierung dieses Sternchen 
ausdrucken, anstatt ruhig auf 
den Text zu warten. Falls 
Sie, liebe Leser, eine Idee zu 
diesem Thema haben, 
schreiben Sie uns. 
Probleme Nr. 2 und 3 sind 
nicht ohne ein Hilfspro- 
gramm (z.B. DISKPARA) 


Briefe 


zu lösen. Die Laufwerke al- 

leine werden vom jeweiligen 

Rechner nicht anerkannt. 
Red. 


Rechnen will gelernt 
sein! 
Ich interessiere mich sehr für 
die Programmierung des 
CPC in Maschinensprache 
und habe auch schon einige 
Programme geschrieben. Bis 
Jetzt habe ich jedoch zu Be- 
rechnungen nur die CPC- ei- 
genen Systemroutinen zur 
Fließkomma-Arithmetik be- 
nutzt, weil ich eigene Routi- 
nen nicht schreiben kann. 
Mich interessiert nun der 
Aufbau solcher Fließkomma- 
Arithmetikroutinen und des- 
halb möchte ich wissen, ob 
Sie schon zu dem Thema et- 
was gebracht haben. 

Klaus Mayer, 

Remscheid 


In unserem Sonderheft 7 
steht ein ausführlicher Arti- 
kel über die Fließkomma- 
Arithmetik des CPC, der mit 
vielen Beispielprogrammen 
belegt ist. 

Red. 


CAD mit Druck 


Ich habe eine Lösung gefun- 
den, wie man beim CAD- 
Programm eine Hardcopy 
einbauen kann. Man braucht 
dazu das Programm SUPER- 
HARDCOPY aus der PCI 
5/86. Die Hardcopy-Routine 
wird ab der Adresse &AA00 
in den Speicher geschrieben 
(POKE), danach speichert 
man sie ab. Das auf der Dis- 
kette befindliche File wird 
nun mittels des | REN- Be- 
fehls in CAD-HC. BIN umbe- 
nannt. Nun muß das CAD- 
Programm geladen und die 
Zeile 11060, in der nur ein 
REM-Zeichen steht, editiert 
werden. Das REM- Zeichen 
wird gelöscht und statt des- 
sen ein CALL &AA00 einge- 
tragen. Danach wird das 
Programm unter dem Namen 
CADI abgespeichert. Nun 
geben Sie ein NEW ein und 
tippen das nachfolgende 
kleine Programm ein: 


10 CLS 
20  PRINT“Drucker ein- 
schalten 


und danach eine < Ta- 
ste > druecken“ 

30 PRINT#8,CHR$(13) 
»"A“;CHR $(4); 

40  CALL &BBl8 

50 LOAD“CAD-HC.BIN“ 

60 RUN“CADI“ 


Speichern Sie dieses Pro- 
gramm nun unter dem Na- 
men CAD.BAS ab. Setzen Sie 
nun den Computer zurück, 
und starten Sie das CAD- 
Programm. Wenn Sie jetzt 
ein Bild ausdrucken wollen, 
geben Sie HC ein, und schon 
wird die Hardcopy ausge- 
druckt. 
Die Hardcopies sehen am 
besten aus, wenn Sie in 
MODE d gezeichnet wurden. 
Diese Änderung bezieht sich 
auf den CPA 80 GS Drucker 
von CMC. Es ist aber auch 
möglich, daß diese Ande- 
rung mit anderen Druckern 
zusammenarbeitet. 
Holger Dörschel, 
Wiesmoor 


Wir geben den Tip gerne an 
die Leser weiter. 
Red. 


Druckerproblem 


Ich besitze einen CPC 464 
mit Floppy DDI und einen 
Drucker COSMOS 80. Den 
Drucker habe ich mir vor ei- 
niger Zeit gebraucht gekauft. 
Das Handbuch ist leider nur 
in englischer Sprache ge- 
schrieben. Daher habe ich 
einige Anpassungsprobleme 
an den Computer. Vor allen 
Dingen beim Ausdrucken von 
Grafiken. Vielleicht hat ein 
Leser dieser Zeitschrift ein 
deutsches Handbuch oder 
kann es mir besorgen bzw. 

übersetzen. 
Wolfgang Griggel, 
Meschede 


Liebe Leser und Leserinnen, 
vielleicht besitzen Sie ein 
deutsches Handbuch für die- 
sen Drucker. Sollte das der 
Fall sein, so schicken Sie uns 
bitte eine Nachricht, die wir 
gerne weiterleiten. Beil. 


Anpassungen an diversen 
Programmen 


TONJUST aus Sonderheft 
5/87: CPC 664/6128 
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0931/464414 


Das Programmpaket mit dem herausragenden Testergebnis. 
In fünf der möglichen Bewertungskriterien fünf mal die Note 1 
(Heft 1/88 PC Schneider International). 
DISCOLOGY ist voll menügesteuert. 50 Bildschirmseiten Hilfs- 
text und Handbuch komplett in Deutsch. 


DAS PROGRAMM FÜR DEN INTERESSIERTEN ANWENDER 


DISCOLOGY 


CPC DISC TOOLS 


Telefon: 
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nm — | NEU! 
| jetzt in 
par) \z Version 5.1 
|| Für alle CPC’s 
” 3”-Diskette 
en 7 nur 


Version 3,8 by David Nardi and Karc Kaulin 
(C) 1986,87 MERIDIEN Informalique, Distributed in W.-Germany by PRS-SOFT 








DM 99.- 


ECHTE DESKTOP-GRAFIK AM SCHNEIDER/AMSTRAD CPC 


MıcrODESIGN 


Für CPC 6128 (oder CPC 464/664 
mit DK-Tronics Speichererweiterung) 
MICRODESIGN mit AMX-kompatibler Maus 


DM 99.- 
DM 248.- 


CHERRY PAINT Komfortables Malprogramm, Menüsteue- 
rung (Joystick, Tastatur, Maus). Ausdruck in versch. Größen. 
Für alle CPC’s 3”-Diskette DM 49.90 


PRINT MASTER Druckprogramm mit 20 versch. Schriften, 
incl. Schriftendesigner. Für alle CPC’s 3"-Diskette DM 59.90 


MAXELL CF2 3”-Disketten 10 Stück nur DM 59.- 
ab 50 St.: DM 57.-/10 St., ab 100 St.: DM 55.-/10 St. 


VIDI-CPC Videodigitiser für CPC 464/664 DM 348.- 


für CPC 6128 DM 368.- 
Weitere Angebote und Spiele in unserem Katalog! 


Tel. Bestellung (24 Stunden): 09317464414, FAX: 0931/464413 
PR8-SOFT ktaus-M. Pracht * Postfach 500 - D-8702 Margetshöchheim 


Lieferung per Nachnahme (Versandkosten DM 5.- + NN-Gebühr) oder gegen Scheck 
(+Versandk. DM 5.-). Auslandslieferungen gegen Scheck (+ Versandkosten DM 10.-) 


> 
El Schicken Sie mir Ihren neuen Katalog (DM 3.- in Briefmarken liegen bei) 
BESTELLUNG (incl. kostenlosem Katalog) [] per Nachnahme 

[1 mit beiliegendem Scheck 

aD 
© 
E (oe ee) 
Name u u e ef er I een nn nel! 
Straße 
PLZ, Ort _ 


Datum, Unterschrift 


PoHBEr u ee ee a 


260 DATA 6448, 6F, 26, 00, 11, 
02, 00, DF, 6B, 3ED5 [1597] 
270 DATA 64BO, 66, 06, 35, 2B, 
10, FD, 22, 1F, 35BF [2431] 
820 DATA 6668, 79, 18, 00, 72, 
DD, FC, 00, 00, 38B8 [1665] 


DISCMON aus Heft 3/87: 
Hier fehlt eine kleine, aber 
wichtige Zeile, die dem Bi- 
närteil die Umschaltung zwi- 
schen A—- und B—- Laufwerk 
mitteilt. 

alle CPOs: 4570 POKE 

87083, Drive 

Das Programm läßt sich re- 
lativ problemlos zur Zusam- 
menarbeit mit XDDOS über- 
reden, da das Laufwerk nur 
mittels RSX-Befehlen ange- 
sprochen wird. Lediglich die 
Blockauswahl, Blockanzeige 
und die Zahl der Spuren 
(Tracks) bedarf einer Anpas- 
sung. XDDOS verwaltet acht 
Sektoren (l SEK.= 512 
Byte) je Block (4096 Byte) 
und 160 Spuren (0 - 159), 
AMSDOS dagegen zwei Sek- 
toren je Block und 40 Tracks. 
Anpassung für XDDOS (5 
1/4“-Laufwerk = Drive B): 
1280 x=32:y=2:von=0:bis= 
9+(120*drive):GOSUB 1330 

1750 a=za*( (1024*%(1+3* drive)) 
/seclen) +secanz* syspur+zh 
2800 block=int (a/(2*(1+3%* 
drive))) 

5260 IF track=40+(drive*120) 
or INKEY (9) <>-1 THEN 5320: 
REM zusätzlicher Abbruch mit 
COPY, da der Suchvorgang bei 
160 Tracks sehr zeitintensiv 
ist. 

5600 IF track=39+(drive* 120) 
AND sector=secanz THEN 
buffer=1:track=0:sector=1: 
RETURN 


Wenn die Erweiterung aus 

dem Leserbrief von Robert 

Lechner (7/87) hinzugefügt 

wurde, auch noch: 

7740 If track>39+ (120%drive) 

THEN 7770 Jürgen Klingele, 
Lörrach 


MAGIC SCREEN aus 
Heft 7/88 


Ein tolles Programm, leider 
funktioniert die Sache nur in 
MODE 0. Aber das kann 
man ändern, zumindest für 
die Grundfunktionen. 

380 MODE md:GOSUB 890:CLS 

745 INPUT "Bild Mode: "md: IF 
md<Oormd>2 then md=0 

Wer mit MAGIC SCREEN 
auch von COPYSHOP ge- 
speicherte Screens (und um- 
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gekehrt) laden will, ohne 
mühsam die Farben neu ein- 
zugeben, sollte zusätzlich 
diese Zeilen einfügen oder 
ändern: 
731 tst$="":FOR i=8&57D0O to 
&57D3 :t4st$=tst$+CHR$ 
(PEEK(i): NEXTi 
732 IF tst$< > "DATA" THEN 740 
733 mä=PEEK (&57D4) 
734 FOR i=0 to 15:x=PEEK 
(&57D5+i) :POKE cb+i,x: NEXTi 
735 RETURN 
790 GOSUB 890: KEY 139,CHR$ 
(13):KEY 138,",":MODE 'md: 
CALL set.inks:CALL &4FFO 
820 GOSUB 2410:KEY 138,".": IF 
4=-1 THEN PRINT "Bitte 
Kass/Disk einlegen-; dann eine 
Taste drücken I4:CALL 
&BB18:CALL &AFFO:CALL &441A: 
SAVE bn$,b,&C000,16384:G0TO 
190 ELSE 190 
940 IF UPPER$ (a$)="S" THEN GO- 
SUB 2410:CALL &441A: SAVE 
sb$,b,&C000,16383:i=LEN 
(sb$) :MID$ (sb$,i,1)= CHR$ 
(ASC(MID$ (sb$,i,1))+1) 
2400 REM Farben für Copyshop 
setzen 
2410 tst$="DATA":FOR a=1t04: 
POKE &57CF+A,ASC (MID$ (tst$ 
‚a,1)):NEXTa 
2420 POKE &57D4,md:FOR a=0 to 
15:x=PEEK (cb+a) :POKE &57D5 
‚NEXT a 
RETURN " £ 
Jürgen Klingele 
Lörrach 


Die Redaktion bedankt sich 
sehr herzlich für die vielen 
hilfreichen Tips. Red. 


Sprachsynthesizer aus 
Sonderheft 7/88/89 


Ich habe mit Begeisterung 
Euer neues Sonderheft gele- 
sen und habe dort einen 
Sprachsynthesizer gefunden. 
Nun bin ich aber Anfänger 
auf dem Gebiet der Elektro- 
nik und würde gerne ein 
komplettes Gerät bei Ihnen 
kaufen. Geht das? 
Franz Hertling, 
Rüdesheim 


Es freut uns natürlich, wenn 
Ihnen unser neues Sonder- 
heft gefällt. Nun ist es aber 
so, daß Sie bei uns weder ein 
komplettes Gerät noch die 
dazugehörigen Bauteile (Pla- 
tine, Chips usw.) kaufen 
können. Die benötigten Teile 
müssen Sie sich leider selber 
im Fachhandel besorgen. 
Red. 


Taxi aus Heft 12/88 


Ein seltsames Phänomen 

verbreitet sich auf manchen 

CPC 464 mit nur einem 

Kassettenlaufwerk. 

Dies macht sich durch sehr 

verschiedene Auswirkungen 

bemerkbar. Eine Abhilfe 

kann geschaffen werden, 

wenn der MEMORY-Befehl 

in der Zeile 80 gelöscht und 

als neue Zeile geschrieben 

wird. Trifft das Problem bei 

Ihnen zu, dann schreiben Sie 

bitte: 

35 MEMORY &3fff 

oder 

45 MEMORY &3fff 

Dies muß durch Ausprobie- 

ren herausgefunden werden. 
Red. 


Einbau eines schnelleren 
Prozessors 


Meine Frage lautet: Kann 
man anstelle des Z80-A den 
schnelleren Z80-B mit 6 Mhz 
Taktfrequenz im CPC einset- 
zen? Wenn das möglich ist, 
bringt dies einen Geschwin- 
digkeitsgewinn, oder müssen 
zusätzlich noch andere Bau- 
teile ausgetauscht werden? 
Andreas Völkel, 
Schwieberdingen 


Im Grunde spricht nichts ge- 
gen den Einbau eines schnel- 
leren Prozessors, allerdings 
müssen Sie dann auch die 
ganze Bausteingruppe, die 
durch den Z80-A kontrolliert 
und angesteuert wird, aus- 
tauschen. Das ganze System 
ist nur für eine bestimmte 
Taktfrequenz ausgelegt. 
Red. 


ARTWORX und ein Pro- 
blem 


Ich besitze seit 1985 einen 
CPC 464 und freue mich, 
daß ich aus Ihrer Zeitung im- 
mer wieder gute Programme 
und Ideen entnehmen kann. 
So tippte ich dann auch das 
Artworx-Programm aus Ih- 
rer November-Ausgabe mit 
viel Mühe ab. Als ich es dann 
startete, stellte ich fest, daß 
ich nur die linke Hälfe des 
Menüs aufrufen konnte. 
Nach längerer Suche fand 
ich schließlich heraus, daß 
sich im Listing ein Druckfeh- 
ler eingeschlichen hatte: 


Ihr Listing “Poket“ das Pro- 
gramm “ARTWORX.GRF“ 
auf die Adressen 37840 — 
41670 (&93DO — &A2C6) 
und “ARTWORX.PRG“ auf 
32768-38336 (&8000 — 
&I5C0). 

Hieraus erkennt man, daß 
die ersten 496 Adressen von 
“"ARTWORX.GRF“ einfach 
überschrieben werden. Man 
muß also im Erzeugerpro- 
gramm von “ART- 
WORX.GRF“ folgende Zei- 
len ändern: 

241 zeile=1:adr=38840 

249 save Nartworx.grft", 

b, 38840, 3830 

Jetzt liest “ARTWORX. 
GRF“ im Bereich 38840 — 
42670 (&9T7B8-&A6AE) 
und dieses ausgezeichnete 
Programm läuft jetzt fehler- 
frei. 


Björn Boese, 
Delmenhorst 


Als erstes möchten wir Ihnen 
sagen, das Programm läuft 
auch ohne die oben angege- 
benen Anderungen einwand- 
frei. Aber wir wollten diesen 
Hinweis nicht unseren Le- 
sern vorenthalten. Hier kann 
man nur sagen: “Probieren 
geht über Studieren“. Aber 
probieren Sie es mit einer 
Backup-Diskette aus, man 
kann ja nie wissen. 


Red. 


Übertragungsprobleme 


Ich arbeitete bisher mit ei- 
nem CPC 6128 mit zwei 
Laufwerken und dem Pro- 
gramm TexPack, welches 
Schneider zu diesen Geräten 
vertrieben hat. Ich benötigte 
dazu eine Adressenverwal- 
tung mit relativ vielen Such- 
kriterien, da ich unter ande- 
rem Monats- und Jahreszah- 
len eingeben und danach su- 
chen muß. Weiterhin muß ich 
Serienbriefe und im Textpro- 
gramm Rechnungen schrei- 
ben können _(selbstrech- 
nend). Das alles ist mit Text- 
Pack möglich. Mein Problem 
war nun, da ich bereits ca. 
2000 Adressen verwalte, das 
Wechseln der Disketten und 
die Adreßverwaltung, die 
kaum noch Suchfelder frei 
hat. Ich habe mir nun vor 
fast einem Jahr den PC 1512 


NEU: 
Heißer Draht 


jetzt 
mit Durchwahl! 


Haben Sie Fragen, die nicht 
warten können? Dann rufen 
Sie uns an! Unser Leser- 
Telefonservice steht Ihnen 


jeden Mittwoch 
von 17.00 bis 20.00 Uhr 
zur Verfügung. 


Sie erreichen Ihren Redak- 
teur jetzt direkt unter einer 
Durchwahlnummer. Auf 
Ihren Anruf freuen sich: 


Claus Daschner 
(CPC Software) 
(0 56 51) 8009 - 16 


Jürgen Borngießer 
(CPC Hardware) 
(0 56 51) 8009 - 17 


Ralf Schößler (PCW) 
Michael Ebbrecht (PCW, PC) 
(0 56 51) 80 09 - 18 


Achtung: Die in früheren 
Heften veröffentlichte Sam- 
melnummer ist ab sofort un- 
gültig - diese Nummer bit- 
te nicht mehr anwählen! 





CPC Büc 


Aus dem Sybex-Angebot 
Einführung in WordStar 


Der Besiseller zum populärsten Textverarbeitungsprogramm 
wurde für die Besitzer des CPC überarbeitet. Und damit wichti- 
ge Hilfe und Nachschlagewerk bei der Arbeit mit WordStar und 
MailMerge auf dem CPC. Neben der klaren Einführung in den 
effektiven Umgang mit WordStar gibt es u.a. auch wertvolle Hin- 
weise für die Installation von Druckern und zu Systempatches. 


280 Seiten/40 Abb. 


Arbeiten mit dBase Il 

dBase || ist im PC-Bereich wohl eines der leistungsstärksten Da- 
tenbankprogramme. Benutzern eines Schneider CPC vermittelt 
ein echter Experte in diesem Buch alle Kenntnisse, die für den 
erfolgreichen Einsatz von dBase Il wichtig sind. Z.B.: Installation 
von und Programmieren mit dBase Il, Editieren von Dateien mit 
Wordstar, Tips und Tricks. Jeder Lernschritt wird durch praxis- 
gerechte Beispiele ergänzt. Und zwar so, daß dem Leser die Um- 
setzung dann wirklich problemlos möglich ist. Ein Buch, das in 
jeder Arbeitsphase weiterhilft. 


Best.-Nr. 421 DM 42,-* 


272 Seiten/m. Abb. Best.-Nr. 422 DM 48,-* 


Aus dem Data Becker-Angebot 


Das Floppybuch zum CPC 

Was man alles aus der DDI-1 des CPC 464, CPC 664 und CPC 
6128 holen kann, zeigt dieses Buch auf eindrucksvolle Weise. 
Neben den nötigen Erklärungen undeinem ausführlichen DOS- 
Listing gibt es zahlreiche Utilities: eine komfortable Dateiverwal- 
tung, einen Disk-Manager. Selbst CP/M-Grundlagen und die re- 
lative Dateiverwaltung werden erklärt. So findet wirklich jeder 
CPC-Besitzer in diesem Buch einen wertvollen Ratgeber. 


422 Seiten Best.-Nr. 412 DM 49,—* 


Das CP/M-Trainingsbuch zum CPC 

Beherrschen Sie CP/M. Dieses Buch hilft Ihnen dabei. Von den 
ersten Schritten bis zum perfekten Umgang. Dabei werden na- 
türlich die Versionen 2.2 und 3.0 für Schneider CPC 464, 664 und 
6128 berücksichtigt. Dieses CP/M-Trainingsbuch bietet ein we- 
nig mehr als andere: zum Beispiel Hilfsprogramme, mit denen 
Sie in der Lage sind, auch fremde Diskettenformate zu lesen 
oder Submit-Dateien zu erstellen. 


260 Seiten Best.-Nr. 413 DM 49,-* 


CPC Tips und Tricks Band 2 

Der 2. Band aus der Tips und Tricks-Reihe ist für alle CPC- 
Besitzer interessant: Egal ob Sie nun einen 464, 664 oder 6128 
besitzen. Schreiben Sie eigene Befehlserweiterungen oder ei- 
nen Maskengenerator. Lernen Sie wichtige Systemroutinen ken- 
nen. Erfahren Sie, wie man Programme beschleunigt, und vie- 
le andere Dinge, die im täglichen Umgang mit dem Rechner fast 
unverzichtbar sind. Mit diesem Buch holt man noch mehr aus 
seinem CPC. 


250 Seiten Best.-Nr. 414 DM 39,—* 


Das Maschinensprachebuch zum CPC 

Wer seinen CPC wirklich beherrschen will, der muß sich mit dem 
Thema Maschinensprache beschäftigen. Von den Grundlagen 
bis zur Programmierung des Z80-Prozessors. Das Maschinen- 
sprachebuch zum CPC hilft Ihnen von Anfang an. Mit einer ge- 
nauen Beschreibung aller Befehle und ausführlichen Beispielen, 
mit Hinweisen zur Benutzung der Systemroutinen und einem As- 
sembler/Disassembler sowie einem Monitor zum Abtippen. So 
macht der Einstieg Spaß. 


330 Seiten Best.-Nr. 415 DM 39,—* 
Das große Grafikbuch zum CPC 


Dieses Buch ist für alle, die bisher dachten, spektakuläre Gra- 
fik auf dem CPC sei nicht möglich. Zwei Top-Autoren beweisen 
das Gegenteil: Mit CPC-Chart - dem Diagrammgenerator, mit De- 
stroyed - dem Arcade-Game, mit CPCs World - dem 3-D- 
Animationsprogramm, mit Vektorgrafik, mit Sprites... Ja. Sie ha- 
ben richtig gelesen : wir reden von den Grafikmöglichkeiten Ih- 
res CPC - inklusive 6128 und Joyce. 


589 Seiten Best.-Nr. 446 DM 49,-* 


Programmwissen pur 
im Westentaschenformat 


Führer zum CPC Best.-Nr. 451 DM 19,80 * 
Führer zum CP/M Best.-Nr. 452 DM 19,80 * 


Zu beziehen über: 


herkiste 


Das große Buch der 
Public-Domain-Software 




















Freie CP/M-Programme für Commodore 128, 
Schneider CPC und Joyce 


Public-Domain-Software setzt sich inzwischen auch in Europa 
durch. Diese Programme tragen kein Urheberrecht und dürfen 
deshalb mit Hobbyfreunden getauscht werden. Doch gerade die 
großen Sammlungen für das Betriebsystem CP/M enthalten ne- 
ben wahren „Juwelen“ auch viel unbrauchbares Material. 

Der bekannte Fachjournalist Martin Kotulla hat es sich zur Auf- 
gabe gemacht, die Idee der Public-Domain-Software auch in 
Deutschland populär zu machen. Aus den großen amerikani- 
schen Sammlungen hat er die interessantesten Programme her- 
ausgesucht, übersetzt an Commodore- und Schneider- 
Computer angepaßt und detailliert in diesem Buch dokumentiert. 
Mit einem Wertcoupon aus dem Buch erhalten Sie die Program- 
me beim Autor zu einem besonders günstigen Preis. 


229 Seiten Best.-Nr. 410 DM 34,80* 
Bücher für den CPC 
Das BASIC-Buch zum 6128 


BASIC macht Spaß. Man muß es nur richtig erklärt bekommen. 
Und genau das tut das große BASIC-Buch zum OPC 6128. In die- 
sem Buch steckt mehr als Einsteigerwissen: Variablen, Zahlen- 
systeme, Bits und Bytes, Tokens, Stringbearbeitung, Sortierung, 
Laufschrift, selbstdefinierte Zeichen, Windows, Fehlerbehand- 
lung, Kopierschutz, Grafiken, Soundprogrammierung, relative 
Dateien .... Das verstehen wir unter Vielfalt. 


276 Seiten 


464 Peeks & Pokes 

Wer PEEKS und POKES zum CPC 464 kennen und anwenden 
will, der findet hier umfassende Information! Sie reicht vom 
Adreßbereich des Prozessors über Betriebssystem und Interpre- 
ter bis hin zur Einführung in die Maschinensprache. Dazu Pro- 
grammierhilfen, Routinen sowie reichlich Material zu den The- 
men Grafikfunktionen, Massenspeicherung und Peripherie, 
Tricks und Formeln in BASIC und RAM-Pages! 


Best.-Nr. 461 DM 39,-* 


180 Seiten Best.-Nr: 463 DM 29,-* 
CPC Hardwareerweiterungen 

Speziell für den Hobbyelektroniker, der mehr aus seinem CPC 
machen möchte! Von nützlichen Tips zur Platinenherstellung 
über Adreßdecodierung, Adapterkarten und Interfaces bis zur 
EPROM-Programmierboard und -Programmiernetzteil oder Mo- 
torsteuerung für Gleich- und Schrittschaltmotoren werden mach- 
bare Erweiterungen ausführlich und praxisnah beschrieben. 


445 Seiten 


464 Intern 

Wirklich alle Geheimnisse des CPC 464 lüftet dieses Standard- 
werk: Neben dem kommentierten BASIC-ROM-Listing enthält es 
Kapitel zu Speicheraufteilung, Prozessor, Besonderheiten des 
Z80, Gate Array, Video-Controller und Video-Ram, Soundchip, 
Schnittstellen, Betriebssystem, Routinenutzung, Character- 
Generator, u.v.m. Für den fortgeschrittenen Basic- 
Programmierer, für den Assembler-Programmierer ein absolu- 
tes Muß! 


Best.-Nr: 464 DM 49,-* 


548 Seiten Best.-Nr: 465 DM 69,-* 


DMV Verlag - Postfach 250 : 3440 Eschwege 


* Unabhängig von der Anzahl der bestellten Bücher berechnen wir für das Inland 3,-— DM 
bzw. für das Ausland 5,- DM Porto und Verpackung. Bitte benutzen Sie unsere Bestellkarte. 


ee ee m nn 


den PC 1512 HD20O ange- 
schafft. Es war mir fast unbe- 
greiflich, daß es selbst bei 
den teuersten Anwendungen 
kaum ein Programm _ gibt, 
das komfortabel Text mit 
Adressenverwaltung verbin- 
det sowie die obengenannten 
Kriterien erfüllt, so daß ich 
vom Text einfach auf eine 
Anschrift zurückgreifen 
kann. 


In der Zwischenzeit habe ich 
mir mit ProfiText eine eigene 
Adreßmaske angelegt, mit 
der ich recht zufrieden bin, 
obwohl auch dieses Pro- 
gramm Nachteile aufweist, 
mit denen man jedoch leben 
kann. Nun zu meinem Pro- 
blem: Wie kann ich vorhan- 
dene Daten vom CPC aufden 
PC und natürlich noch an die 
entsprechende Stelle der 
neuen Maske bringen? 

Ist es möglich, die Hardware 
untereinander zu verbinden? 


G. Molat, 
Tettnang 


Viele Aufsteiger vom CPC 
zum PC haben damit zu 
kämpfen, daß die ’alten’ Da- 
teien sich nicht so einfach auf 
dem ’Neuen’ weiterverarbei- 
ten lassen. Hier gibt es je- 
doch auch Möglichkeiten: 


1. Sie benutzen eines der 
UÜbertragungsprogramme 
wie SUPERCOPY, welches 
unter CP/M auf dem CPC 
formatierte 5 1/4“- Disketten 
erkennt und die darauf ent- 
haltenen ASCII- Dateien be- 
arbeiten kann. 


2. Sie schauen sich unser 
Sonderheft 7 an; darin befin- 
det sich ein Programm na- 
mens FileTransfer, welches 
auf ähnliche Art und Weise 
Dateien auf den PC überträgt. 


3. Sie kaufen sich für Ihren 
CPC eine RS 232- Schnitt- 
stelle für den seriellen Da- 
tentransfer sowie ein ent- 
sprechendes Kabel, welches 
zwischen RS 232 (CPC) und 
seriellem Port (PC) ange- 
schlossen wird, dazu noch 
ein Übertragungsprogramm 
wie KERMIT aus der Public 
Domain für Ihren CPC, und 
schon kann die Datenreise 
beginnen. 


12 PE 1’89 


Daß Ihre Dateien allerdings 
in der gleichen Maske auf 
dem PC erscheinen, ist nicht 
möglich, da für einen sol- 
chen Datentransport nur rei- 
ne Zeichenketten im ASCH- 
Format zu gebrauchen sind. 
Red. 


ASTRO, JOYCE-Sonder- 
heft 4 


Das Programm benötigt ei- 
nige Verbesserungen, um 
auch korrekt abzulaufen. 
Zeile 230 muß lauten: 

IF om < - 59.9 OR om > 
59.9 THEN 210 

Damit dann der Ausdruck 
auf dem Bildschirm und 
Drucker richtig ist, müssen 
folgende Zeilen auch geän- 
dert werden: 


830 PRINT: PRINT “ ... und 
“IF og>O THEN PRINT 
INT(og); ELSE PRINT 
INT(og)+1;* Grad, “;om;“ 
Minuten östlicher Länge. “ 


940 LPRINT:LPRINT“ . 
und “; :IF og>0 THEN 
LPRINTINT(og); ELSE 
PRINT INT(og) +1;“ Grad, 
““om;“ Minuten östlicher 
Länge. “ 
Maureen Lyman, 
Hamburg 


F6-PORT 


Der Port F6 (dezimal 246) ist 
für die Scrollbreite des Bild- 
schirmes bzw. die senkrechte 
Größe des Darstellungsfel- 
des zuständig. Es sind Werte 
von 00 bis FF (0- 255) zuläs- 
sig. Je höher der eingegebe- 
ne Wert, desto schmaler ist 
der Schirm, von oben gese- 
hen. OUT F6,00 (OUT 246,0) 
bewirkt die volle Schirmhö- 
he, OUT F6,80 (OUT 246,128) 
nur die halbe Bildschirmhö- 
he. Eine Wertstufe ist eine 
Pixelreihe, eine Textzeile da- 
her 8. Versuchen Sie doch 
einmal dieses kurze BASIC- 
Programm (die FOR TO 
NEXT-Schleife mit y ist nur 
zur Verzögerung gedacht). 
lOFORx=255TOOSTEP-I 
20 FOR y = 1 TO 20 
30 PRINT USING 
"RR NE 
40 NEXT y 
50 OUT 246,x 
60 NEXT x 

Horst Buchholz, 

Bienenbüttel 


dBase-LocoScipt 


Mir stellte sich die Frage, ob 
ich meine dBase-Dateien 
auch unter LocoScript benut- 
zen könnte. Dazu erstellte 
ich eine Textdatei unter dBa- 
se mit Hilfe des Befehls: 
(nach USE datei) 
COPY TO name DELIMI- 
TED WITH ‚ [Komma!] 
Nun lade ich LocoScipt. Ich 
lege die dBase Diskette ein 
und füge unter F7/Text einfü- 
gen den Text ein. 
Nun müssen noch mit der Su- 
che/Ersetze-Funktion die 
Sonderzeichen umgewandelt 
werden: 
[extra+9] - ß 
[alt+shift+ä] -ä 
[alt+shift+ü] - ü 
[extra+6] -ö, 
[extra+1]- © 
usw. 

Claudia Behrend, 

Schramberg 


Fehler im BASIC2? 


Ich bin seit einigen Wochen 
stolzer Besitzer eines PC 
1512 und habe mich sofort 
mit Ihrem BASIC2- Kurs be- 
schäftigt, den Sie in Ihrer 
Zeitschrift veröffentlicht ha- 
ben. 
Ich habe nun folgendes Pro- 
blem beim Arbeiten mit 
BASIC2: Wenn ich BASIC2 
starte, kann ich mit Hilfe der 
Cursor-Steuertasten im Edi- 
tierfenster beliebig herumge- 
hen. Nachdem ich die Fen- 
ster einige Male geöffnet und 
wieder geschlossen habe, ist 
die Steuerung mittels der 
Cursortasten nicht mehr 
möglich, statt dessen wird 
der Mauszeiger bewegt. 
Deshalb meine Frage: Wie 
kann ich dieses beheben, und 
wie kommt dieser Fehler 
überhaupt zustande? 

Markus Drexelius, 

Usingen 


Nun, wie es aussieht, wer- 
den alle BASIC2- Benutzer 
mit dieser Macke’ leben 
müssen. Uns ist dieser Feh- 
ler nämlich auch schon auf- 
gefallen. Hierbei handelt es 
sich allem Anschein nach um 
einen Fehler des BASIC2- 
Systems, dem kaum auf die 
schnelle beizukommen ist. 
Sollte jemand aus dem Le- 
serkreis eine Lösung wissen, 


so sollte er sie uns nicht vor- 
enthalten. Viele BASIC2- 
Benutzer werden ihm dank- 
bar sein. 

Red. 


Hilfe bei Artworx (11/88) 
Ihr Programm ARTWORX 
ist super. Alles läuft perfekt, 
bloß das Ausdrucken nicht. 
Mehr als ein Zeilenvorschub 
bekomme ich auf meinem 
CPA-80 GS-Drucker nicht 
heraus. Vielleicht haben Sie 
ein paar ’Pokes’, die Sie mir 
mitteilen können. 
Günther Hübel, 
Nürnberg 


Eine Anpassung für den 
CPA-80 GS liegt uns leider 
nicht vor. Aber im Heft 1/89 
finden Sie eine Anpassung 
für den NLQ 401 vor. Nach 
unseren Informationen müß- 
te diese auch auf Ihrem 
Drucker laufen. Allerdings 
konnte der ’Patch’ nicht auf 
einem CPA80-GS überprüft 
werden. Red. 


MERGE auf dem CPC 464 


Durch das ’ewige’ Warten 
mit einem Kassettenlaufwerk 
habe ich mir endlich ein Dis- 
kettenlaufwerk zugelegt. 
Meine große Freude über ein 
schnelles Speichermedium 
wurde nach einer Weile lei- 
der etwas getrübt. Bei man- 
chen Programmen, die noch 
andere Basic-Teile nachla- 
den, durch den CHAIN- 
MERGE oder MERGE-Be- 
fehl, bekomme ich sehr oft 
eine Fehlermeldung (EOF- 
Met in Zeile ...). Sind die 
Programme alle falsch, oder 
ist mein Diskettenlaufwerk 


defekt? Reinhard Hauser, 


Osnabrück 


Ihre Befürchtungen, daß das 
Diskettenlaufwerk defekt ist, 
sind unbegründet. Denn ein 
Fehler im CPC 464-Betriebs- 
system macht die Disk-Mer- 
ge-Routine unmöglich. Eine 
Abhilfe kann geschaffen 
werden, wenn die Basic-Pro- 
gramme als ASCII-Datei 
mit SAVE “Name“ abge- 
speichert werden. Eine ande- 
re Alternative wäre ein klei- 
nes Programm, das wir im 
Heft 9/87 für den CPC 464 
veröffentlicht haben. Red. 


Jetzt pABTelg-117-1 07 
Oldie-Spiele-Aktion 
















The > = Adventure Continues 








für alle CPCs 


Für unsere treuen Leser haben wir die Spitzenhits vergangener Tage für CPC Computer messerscharf 
kalkuliert. Stellen Sie Ihr eigenes Kombipack zusammen, wir liefern prompt zu Wahnsinnspreisen! 
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Disketten 3° nur 
36, - DM* 


Best.-Nr. 190 


3 Kassetten nur 


22,- DM* 
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Best.-Nr. 188 






5 Disketien "nur 
„ 54,- DM 
x 0m Bee 


Best.-Nr. 191 ee 


5 Kassetten nur 


_ 30, - DM 








Bitte wählen Sie unter den folgenden Titeln aus, und benutzen Sie die Bestellkarte. 


Lieferbar als Kassette Lieferbar als 3° Diskette 

Space Shuttle (Activision) Ghostbusters (Activision) 
Boxing (Activision) Space Shuttle (Activision) 
Ballblazer (Activision) Boxing (Activision) 
Wintersports (Electric Dreams) Little Computer People (Activision) 
Spindizzy (Electric Dreams) Ballblazer (Activision) 
Hacker Il (Activision) Wintersports (Electric Dreams) 
Tempest (Electric Dreams) Spindizzy (Electric Dreams) 
Star Raiders Il (Electric Dreams) Hacker Il (Activision) 

Big Trouble in Little China (Electric Dreams) Tempest (Electric Dreams) 


Sailing (Activision) Star Raiders Il (Electric Dreams) 
Big Trouble in Little China (Electric Dreams) 
Sailing (Activision) 


“ Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,— DM bzw. 
für das Ausland 5,— DM Porto und Verpackung. 
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Für aus B:-Laufwerk lautet die neue 


DEVICE=DRIVER. sysi0l /f:00 
1:02 /5:009/ :040° 
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we en 
Nach Angaben der Firma Wiedmann in 
_ München hat diese jetzt auch die Pro- 
un LocoFont und LocoFile in ih- 
- gramı a 











coScript gibt beim Aufrufen von “Be- 


handener Texte in neun neuen Schrift- 
arten. LocoFile ist ein Datenbankpro- 
gramm, das direkt mit LocoScript 2 zu- 
sammenarbeitet. 


Außer diesen beiden Programmen sind 
über die Firma Wiedmann auch die 
Originalhandbücher zu LocoScript, 
LocoSpell und LocoMail (zum Teil in 
deutscher Übersetzung) und weiterfüh- 
rende Literatur zu LocoSeript erhält- 
lich. Ein weiteres Plus ist ein Drucker- 
treiber für den AMSTRAD LQ 3500, 
mit dem jetzt endlich auch der Aus- 
druck von Sonderzeichen (griechische 
Buchstaben, Symbole etc.) aus Loco- 
Script 2 möglich ist. Leider wird aber 
auch von diesem noch nicht der volle 
Zeichensatz des Programms unter- 
stützt. 


Abschließend noch die Anschrift der 
Firma: 


Firma Wiedmann 
Floriansmühlstr. 10 
8000 München 45 
Tel.: 089-32 33 595 


Windows auf dem PC1512/1640 

Das Allerneuste zu diesem Thema: 
Für Windows 2.03 gibt es jetzt auch di- 
rekt von unserer Firma eine Anpassung 
für Maus- und Tastatur-Treiber. Der 
DMV-Verlag hat den Vertrieb dieser 
Treiber übernommen: Sie finden die 
Programme aufder DATABOX zu die- 
sem Heft. 


PC 1640 MD - GEM 2 im Hercules- 
Modus 

Wird GEM mit der auf den Original- 
disketten mitgelieferten Stapeldatei 
GEM3.BAT gestartet, so arbeitet es 
auf dem MD-Monitor nicht im Hercu- 
les-Modus, sondern mit dem Treiber 
für monochrome EGA-Auflösung. 


Lee 


Dies beruht auf der durch das Pro- 
gramm ASSGNTST vorgenommenen 
Auswahl. Um dies zu umgehen, kann 
man aus der Datei GEM3.BAT die Ab- 
frage mit ASSGNTST herausnehmen: 


ECHO OFF 

CD \GEMSYS 

IF NOT EXIST ASSIGN.SYS GOTO 
EXIT 

N DISPLAY MDHERC >NUL 
GEMVDI %1 %2 %3 

:EXIT 

Dr 


Vor dem Aufruf von GEM muß dann 
im Unterverzeichnis GEMSYS die Da- 
tei MDHERC.ASS in ASSIGN.SYS 
umbenannt (oder als ASSIGN.SYS ko- 
piert) werden, da GEM beim Start aus 
der Datei ASSIGN.SYS die Angaben 
für die anzusprechenden Gerätetreiber 
entnimmt. 

Nach diesen Anderungen meldet sich 
GEM im Hercules-Modus — erkennt- 
lich im Desktop an einer Ikone mehr 
pro dargestellter Zeile. 


Automatische Einzelblattzuführung 
für AMSTRAD-Drucker 

Von der Firma Multimatic wird das Sy- 
stem Multimatic 230 (Einzelblattein- 
zug, l Schacht, 100 Blatt DIN-A4- 
Hochformat) für den Drucker des 
PCW9512 und den LQ3500 angebo- 
ten. Für den LQ5000 ist das System 
Multimatic 231 erhältlich, das Formate 
zwischen DIN A4 hoch und DIN A4 
quer verarbeitet. 

Interessenten wenden sich bitte direkt 
an die Herstellerfirma: 

Multimatic Vertriebsgesellschaft 
Postfach 22 E 

7214 Zimmern ob Rottweil 

Tel.: 0741-33132 
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Das Software-Experiment 


für CPC 464 / 664 / 6128 


Autor: Matthias Uphoff 


Die erfolgreiche Serie aus PC International jetzt in Neuauflage: 10 abenteuerliche Ausflüge 
in die Welt der Computergrafik, Simulation und Künstlichen Intelligenz mit insgesamt 
17 Programmen auf Diskette/Kassette und einem umfangreichen 180-seitigen Handbuch! 


Unter anderem bietet das Software- 
Experiment: 


Komplexe Grafik: Ein komfortabler Fraktal-Generator 
für den CPC 


Das Spiel des Lebens: Nach einem einfachen Prin- 
zip wachsen auf dem Bildschirm farbige Kristallmuster: 
Sehen und staunen! 


Das Okologie-Experiment: Gestalten und erfor- 
schen Sie die Gesetzmäßigkeiten eines künstlichen klei- 
nen Lebensraumes, der in animierter Farbgrafik darge- 
stellt wird. 


Der Computer als Stratege: Ein ausgeklügeltes 
System macht den CPC zu einem starken Gegner im 
japanischen Gobang-Spiel. Verbessern Sie die Spiel- 
stärke durch Abändern der Zugbewertung! 


Mit roher Rechengewalt: Mit einem “Brute-Force“- 
Algorithmus spielt Ihr Rechner in einem afrikanischen 
Bohnenspiel alle menschlichen Gegner an die Wand — 
oder können Sie ihn schlagen? 


Der Computer lernt: Bringen Sie Ihrem CPC 
“spielend“ Minischach bei. Mit jeder Partie wird das 
Programm ein bißchen besser... 


Wordmaster: eines der intelligentesten Programme 
des Software-Experiments: Raten Sie ein Wort, das sich 
Ihr PC ausgedacht hat — und das ist eigentlich nichts 
besonderes. Aber dann rät der Rechner ein Wort, das Sie 
sich ausgedacht haben! Wer braucht weniger Versuche? 
Sie werden sich wundern... 


Wortketten: Mit einer raffinierten Methode löst der 
CPC Woriketten-Rätsel — oder er erfindet neue Rätsel, 
ganz wie Sie wollen! 


Entwicklungshilfe per Computer: Verbessern Sie 
in einer aufwendigen Simulation als Entwicklungshelfer 
die Lebensbedingungen eines Volkes in der Savanne 
Afrikas. Seuchen und Hungersnöte drohen, und Ihre 
Mittel sind begrenzt... 


Pascal läßt grüßen: Ein erstaunlich einfaches Pro- 
gramm enthüllt verborgene Strukturen im Pascal’schen 
Dreieck und stellt Sie grafisch dar. 





ÖKOLOGIE-Experiment 


Kassette 
Best.-Nr. 212 


3“ Diskette 
Best.-Nr. 213 





59,- DM (unverbindliche Preisempfehlung) 
Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 





Inland: Ausland: 

Einzelpreis 59,- DM Einzelpreis 59,- DM 
zzgl. Versandkosten 3,- DM zzgl. Versandkosten 5,- DM 
Endpreis 62,- DM Endpreis 64,— DM 








69,- DM (unverbindliche Preisempfehlung) 
Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 
Inland: Ausland: 





Einzelpreis 69,- DM Einzelpreis 69,- DM 
zzgl. Versandkosten 3,-— DM zzgl. Versandkosten 5,- DM 
Endpreis 72,- DM Endpreis 74,- DM 








Doch das Software-Experiment ist weit mehr als ein außerordentlich vielseitiges Programmpa- 
ket: Das Handbuch vermittelt auf anschauliche und unterhaltsame Weise, welche Datenstruktu- 
ren und Algorithmen dem CPC phantastische Grafiken und verblüffende Intelligenzleistungen ent- 
locken. Der ideale Lehrgang für den angehenden Top-Programmierer — hervorragend geeignet 


für den Informatik-Unterricht an Schulen! 


— Bitte benutzen Sie die Bestellkarte — 


DMV - Postfach 250 - 3440 Eschwege 


Each > ee a u 











Bruderzwist — oder: 


Immer auf den Kleinsten 


Kompatibilitätsprobleme im CPC-BASIC - und wie man sie umgeht 


“Heute haben wir wieder ein Superprogramm für alle CPC-Besitzer.“ So 
steht es bisweilen in der PC AMSTRAD. Und dann kommt irgendwann der 
berühmte Satz “... Besitzer eines CPC 464 brauchen zum Starten des Pro- 
grammes den EMULATOR.“ “Na, bravo“, denkt der gestreßte CPCler, 
“suchen wir also in den alten Heften danach.“ 


Nun gibt es zwei Möglichkeiten: 
1. Der EMU ist vorhanden, das Pro- 
gramm steigt trotzdem bei einem BA- 
SIC 1.1-Befehl aus. Oder: 


2. Schlimmstenfalls existiert der EMU 
noch nicht in der Software-Sammlung, 
und schon ist man in der Stimmung, 
den armen Redakteuren mal kräftig die 
Meinung zu sagen (das ’AMEN’ hat ei- 
ner dieser Redakteure mit hineinge- 
setzt). Daß dieser Arger jedoch nicht 
sein muß, ja, daß sogar CPC 
6128-Programme problemlos auf dem 
464 laufen können, wenn man sich an 
ein paar Programmierregeln hält, das 
soll Ihnen unser Artikel über drei un- 
gleiche Brüder zeigen. 


Als 1984 der CPC 464 auf der Compu- 
terszene erschien, damals schon von 
AMSTRAD produziert, aber noch un- 
ter dem Namen Schneider, staunte die 
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Fachwelt nicht schlecht. Ein Compu- 
tersystem mit eingebautem Speicher- 
Kassettenlaufwerk, CP/M-fähig und 
mit einem sehr komfortablen BASIC 
ausgestattet, das war doch schon was. 
Natürlich blieb die Entwicklung in der 
Computerindustrie nicht stehen. 


Im Zuge der Verbesserungen kamen 
von AMSTRAD/Schneider bekannt- 
lich zwei neue CPC-Versionen auf den 
Markt: der 664 und der 6128. Sie wur- 
den ursprünglich als kompatibel ange- 
priesen. Die Praxis hat es jedoch im- 
mer wieder gezeigt: CPC-Programme 
sind untereinander nur eingeschränkt 
lauffähig. Wie viele Schwierigkeiten 
diese Tatsache bereitet, zeigen uns 
auch immer wieder Leseranfragen, die 
sich über das eine oder andere nicht 
lauffähige Programm beklagen. Dies 
ist also Grund genug, auf dieses Thema 


genauer einzugehen. Um es gleich vor- 
wegzunehmen: Dies soll keine Pro- 
grammieranweisung ä la Handbuch 
werden, darüber sind weiß Gott schon 
viele Bücher entstanden. Nein, bei un- 
serem Bericht soll es in erster Linie 
darum gehen, inwiefern das BASIC 
1.0 des CPC 464 vom BASIC 1.1 des 
CPC 664/6128 verschieden ist, und 
wie man als Programmierer sein Pro- 
gramm dahingehend schützen kann, 
daß es von Mitbenutzern nicht als ’lauf- 
unfähig’ abgehandelt wird. Fangen wir 
also gleich damit an. 


BASIC = BASIC ??? 





Die Unterschiede in den BASIC-Dia- 
lekten sind sogar so groß, daß viele bei 
der Anpassung vor kaum lösbaren Pro- 
blemen stehen. 


Spötter haben schon behauptet, die 
CPCs hätten nur das “C“, das “P“ und 
das “C“ gemeinsam. Dabei kann man 
ihre Verwandtschaft absolut nicht ver- 
leugnen. 


 ————— nn nn ericht— 


Die BASIC-Dialekte von CPC 664 und 
CPC 6128 sind im Vergleich zum CPC 
464 erweitert worden. Besonders im 
Bereich der Grafikprogrammierung er- 
gaben sich einige Neuerungen. Im fol- 
genden stellen wir die neuen Befehle 
kurz vor und erklären einfache Auswe- 
ge (sofern es welche gibt), die auf allen 
CPCs funktionieren. Ist ein CALL-Be- 
fehl angegeben, so können Sie sicher 
sein, daß dieser für alle drei CPC-Ver- 
sionen gilt. 


Warum einfach, wenn’s auch 
kompliziert geht? 


Zumeist wird gar kein Emulator benö- 
tigt (siehe PC International 10/86: 
“664/6128-Emulator für den CPC 
464“), weil die Befehle sehr einfach zu 
simulieren sind. 


CLEAR INPUT 

Dieser Befehl löscht den Tastatur-Puf- 
fer (Eingabespeicher) und ist deshalb 
vor INKEY, INKEY$ und INPUT zu 
empfehlen. Der Befehl kann auch sehr 
einfach “von Hand“ programmiert 
werden: 


WHILE INKEY$< > ““:WEND 


macht genau dasselbe. Eine Anmer- 
kung für die Assembler-Programmie- 
rer unter Ihnen: In der Maschinenspra- 
che-Ebene gibt es dafür bei den großen 
Brüdern des CPC 464 einen neuen Ein- 
sprung namens KM FLUSH (Adresse: 
&BD3D). Auch in Assembler kann 
man sich sehr leicht mit einem Zwei- 
zeiler behelfen: 


FLUSH CALL &BB09 ;km read char 
JR C,FLUSH 


Als DATA-Lader für die Nur-BA- 
SIC-Programmierer sieht das Ganze 
dann so aus: 


10 MEMORY &8FFF 

20 FOR i=&9000 TO &9005 

30 READ a:POKE i,a 

40 NEXTi 

50 DATA &CD,&09,&BB,&38,&FB,&C9 


Ein CALL &9000 ersetzt dann den 
CLEAR INPUT-Befehl im Listing. 
Das Kommando CLEAR INPUT löst 
auch mit Emulator beim CPC464 einen 
Syntax Error aus, der erst dadurch be- 
seitigt werden kann, daß man die Zeile 
dem Compreter (BASIC-Betriebssy- 
stem) als neue Zeile vorsetzt. Denn nur 
wenn die Zeile in Token verwandelt 
(umgewandelt und in den Speicher ge- 
schrieben) wird, kann sie auch korrekt 
interpretiert werden. Wie man das be- 
werkstelligen kann, ist sehr schnell er- 
klärt: 








Entweder das Programm mit 
SAVE “name “,A 


als ASCII-Datei abspeichern oder die 
Zeile editieren und unverändert wieder 
’abschicken’. 


COPYCHRS$ (# window) 

Diese Funktion liest ein Zeichen von 
der aktuellen Cursorposition. Hier gibt 
es leider kein einfaches BASIC-Aqui- 
valent. Eine Abhilfe schafft nur ein 
Firmware-Einsprung, der hier der 
Vollständigkeit halber genannt sei: 


COPYCHR CALL &BB60 ;txt rd char 


Nun enthält der Akkumulator das gele- 
sene Zeichen (folgende Flags des Pro- 
zessors werden gesetzt: Carry =1: Zei- 
chen identifiziert; Zero=1: Space). 
Natürlich müssen ein entsprechendes 
Window und die laufende Text-Posi- 
tion zuerst gesetzt werden. Ist das Zei- 
chen nicht zu identifizieren (z.B. eine 
Grafikdarstellung), so wird ein Leer- 
zeichen übergeben. Für die Nur-BA- 
SIC-Programmierer unter Ihnen folgt 
hier dazu ein universell einsetzbares 
Programm: 


10 MEMORY &9FFF 

20 FOR i=&A000 TO &AO00D 

30 READ a 

40 POKE i,a 

50 NEXTi 

60 DATA &FE,&01,&C0,&DD,&66, 
&01,&DD 

70 DATA &6E,&00,&CD,&60,&BB, 
&77,&C9 


Dieses Programm ist übrigens im Spei- 
cher frei verschiebbar, das heißt, Sie 
können die Adressen in den Zeilen 10 
und 20 Ihren Wünschen entsprechend 
verändern. Nachdem Sie die DATAs 
nach obigem Schema gePOKEd haben, 
können Sie es wie folgt aufrufen: 


80 'Variable für Zeichen löschen 
DCcA-=0 

100 ’Textcursor positionieren 

110 LOCATE 1,1 

120 ’Zeichen vom Bildschirm lesen 
130 CALL &A000,@c % 

140 "Zeichen wieder darstellen 
150 PRINT CHR$(c%), 


CURSOR flagl,flag2 

Der CURSOR-Befehl bestimmt, ob der 
Text-Cursor ein- oder ausgeschaltet 
wird (flag2). 

PRINT CHR$(3); schaltet den Cursor 
bei INPUTs an, PRINT CHR$(2); 
schaltet ihn wieder ab. Der System- 
Cursor (flagl) kann per CALL &BB81 
ein- und per CALL &BB84 ausgeschal- 
tet werden. 





DEC$(ausdruck ‚formatstring) 
Diese Funktion ist so etwas wie ein 
wunder Punkt der CPCs. Beim 464 
wurde der Befehl nicht beschrieben, 
weil er eine ’Macke’ hat (ein Betriebs- 
system-Fehler im ROM): er verlangt 
zwei zu Öffnende Klammern. Dieser 
Fehler ist beiden Nachfolgern beseitigt 
worden. Als Abhilfe gibt es zwei Mög- 
lichkeiten: Entweder Sie benutzen bei 
formatierten Ausgaben die PRINT 
USING Anweisung oder Sie behelfen 
sich durch eine Versionsabfrage und 
eine entsprechende Sonderbehandlung 
des CPC464. 


“Was bin ich?“ — ein heiteres 
Ratespiel mit dem CPC 








Wie kann man nun die drei verschiede- 
nen CPC-Versionen unter einen Hut 
bringen, das heißt, in einem Programm 
unterscheiden? Durch Anderungen ha- 
ben sich einige Speicherinhalte im 
RAM Ihres CPCs geändert. Deshalb ist 
es möglich, daß Ihr Computer erkennt, 
wer er ist. Es empfehlen sich folgende 
Abfragen: 


PEEK(&BD71) liefert beim CPC 464 
den Wert 232 (&E8), beim 664er dage- 
gen 85 (&55) und beim CPC 6128 wie- 
derum 20 (&14). Eine weitere Mög- 
lichkeit ist die Adresse 6: PEEK(6) er- 
gibt beim CPC 464 als Ergebnis &80 
(128), beim CPC 664 den Wert &7B 
(123) und beim CPC 6128 schließlich 
&91 (145). 


FRAME 

Der Befehl FRAME wartet auf den 
nächsten Strahlrücklauf des Monitors. 
Auf diese Weise können Sie gleitende 
Bewegungen realisieren. FRAME 
macht es uns besonders einfach, kann 
der Befehl doch durch einen simplen 
CALL ersetzt werden: 


CALL &BDI9 


Die Z80-System-Routine MC WAIT 
FLYBACK) macht exakt dasselbe. 
Probieren Sie es doch einmal aus: 


10 FORi=1TO 79 
20 LOCATE i,l 

30 PRINT * *“ 

40 CALL &BD19 
SONEXTi 


GRAPHICS PAPER farbstift 

Die Farbe der Grafik-Schreibfläche 
kann nicht ohne weiteres ersetzt wer- 
den. Hier hilft nur ein Zugriff auf die 
Speicherstelle, die diesen Wert enthält: 


Grafik-PAPER-Farbmaske: 
CPC 464: &B338 
CPC 664/6128: &B6A3 
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Da hier nicht die Farbe selbst, sondern 
ein codierter Wert (0-255) abgelest ist, 
können Sie nun auch gestrichelten far- 
bigen Untergrund benutzen. Das Kom- 
mando wird ohnehin sehr selten benö- 
tigt, weil meist der Untergrund des 
Grafik-Windows mit CLG farbe ge- 
setzt wird. 


GRAPHICS PEN farbe,modus 

GRAPHICS PEN kann zwei Parameter 
enthalten. Den ersten zu ersetzen, 
macht keinerlei Probleme, weil der 
CPC 464-Benutzer die Farbe des Gra- 
fik-Stiftes auch mit einem weiteren Pa- 
rameter bei PLOT angeben kann: 
PLOT x,y,farbe. Wenn Sie nun nur die 
Grafikfarbe wählen wollen, ohne einen 
Punkt zu setzen, so positionieren Sie 
ihn einfach außerhalb des Grafik-Fen- 
sters (der Computer überprüft die 
Grenzen selbstständig und setzt ggf. 
nur die Farbe !). Zum Beipiel wird 
GRAPHICS PEN 1 durch PLOT 
-10,-10,1 ersetzt. Der zweite Parame- 
ter bei diesem Befehl kann durch fol- 
gende Befehls-Sequenz ersetzt werden: 


PRINT CHRS$(23);CHR$ (modus); 


Das Steuerzeichen CHR$(23) entschei- 
det über den Grafik-Schreibmodus: 


0 = Normale Einstellung 
1 = XOR-Verknüpfung 
2 = AND-Verknüpfung 
3 = OR-Verknüpfung 


AND setzt zum Beispiel nur einen 
Punkt, wenn auch auf dem Bildschirm 
an dieser Stelle schon ein Punkt vor- 
handen ist. Für diejenigen, die sich mit 
den Verknüpfungsbefehlen nicht so gut 
auskennen, sei es empfohlen, sich doch 
einmal das Handbuch zu Gemüte zu 
führen, auch wenn dieses nicht gerade 
das Non-Plus-Ultra der Computerlite- 
ratur zu sein scheint. 


MASK bitmaske 

MASK läßt sich nur mehr schlecht als 
recht simulieren, weil der Befehl ver- 
schiedene Linienmuster (Striche/Punk- 
te) für DRAW-Befehle realisiert (beim 
CPC464 nicht vorgesehen !). Durch ei- 
nen POKE können zumindest vertikal 
verschiedenartig gestrichelte Linien 
dargestellt werden. 


GRAPHIK-PEN-Farbmaske (0-255) 
CPC 464: &B338 
CPC 664/6128: &B6A3 


ON BREAK CONT 

Dieser Befehl sperrt die BREAK-Taste 
(ESC). Das BASIC-Programm läßt 
sich nun nicht mehr unterbrechen; 
CALL &BB48 , die Routine KM Dis- 
arm Break, macht aber genau dasselbe. 
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Natürlich können Sie auch eine 


BASIC-Konstruktion verwenden: 


lO ON BREAK GOSUB 10000 ... 
(Programm) 
10000 RETURN 


PEN # window ‚farbe,hintergrund 
Dieser Befehl stellt, wie auch beim 
CPC 464, die Vordergrund-Textfarbe 
ein. Allerdings läßt sich ein Zusatzpa- 
rameter definieren: der Hintergrund- 
modus. Er kann auch wieder durch ein 
Steuerzeichen eingestellt werden: 


PRINT CHR$(22);CHRS$ (m); 


setzt den Transparent-Modus (m=]1) 
oder hebt ihn wieder auf (m=0). 


Parameterübergabe bei RSXen 





Da bei CPC 664/6128-Stringpara- 
metern in RSX (Resident System eX- 
tensions) kein Klammeraffe (Taste 
rechts vom P; fungiert als Zeiger auf 
die Adresse der Zeichenkette) mehr 
vorangesetzt werden muß, kann man 
sich hierbei viel Schreibarbeit sparen. 
Ein Beispiel: 

!REN, “test.rsx“, “test.bin“ 

muß beim CPC464 kompliziert über 


den Klammeraffen bewerkstelligt 
werden: 
aß="test.rsx":b$=!test.bin": 

| REN,@a$,@b$ 


Da diese Methode auch bei den 'großen 
Brüdern’ funktioniert, ist es also in ei- 
genen Programmen sicherer, den 
Stringpointer zu verwenden. 
Es gibt aber auch die Möglichkeit, daß 
Sie die Versionsnummer abfragen und 
— falls es sich um einen CPC 464 han- 
delt — das folgende kurze Programm 
installieren: 

10 MEMORY &7FFF 

20 'letzte beiden Bytes:Adresse 

30 DATA C3,00,80 

40 'Sprungvektor einrichten: 

50 FOR i=&AC04 TO & 
60 READ a$:a=VAL("&U+a$) :POKE i,a 
70 NEXT 

80 
90 
100 
110 D 
120 
130 
140 
150 NEXTi 
Nun können die Zeichenketten wie 
beim 664/6128 direkt übergeben wer- 
den. Auch dieses Programm ist frei 
verschiebbar: die Adressen in den Zei- 
len 10, 30 und 130 müssen dann aller- 
dings entsprechend geändert werden. 









fang-Routine: 


Erweiterte Parameterliste bei Gra- 
fikbefehlen . 
Bei DRAW, DRAWR, MOVE, MO- 





VER, PLOT und PLOTR kann neben 
x-und y-Koordinate sowie Schreibfar- 
be noch ein zusätzlicher Parameter an- 
gegeben werden, nämlich der Schreib- 
modus. Wie man da Abhilfe auf dem 
464 schafft, haben wir bereits erklärt 
(siehe GRAPHICS PEN). 


REM-Zeilen nach DATAs 

Das ist eine weitere ’Macke’ des 
CPC464. Es gibt kaum etwas, das er 
mehr haßt, als REMs nach DATA-Zei- 
len. Die verursachen bei ihm einen 
simplen "Syntax error’. Auch das muß 
nicht unbedingt sein. Gönnen Sie sich 
eine Extra-Zeile für Kommentare. Der 
CPC464 wird es Ihnen danken! 


Systemspezifische POKEs/CALLs 
Das häufigste Streitthema der drei Brü- 
der sind natürlich die berühmten und 
berüchtigten “PEEKs und POKESs“. 
Wenn Sie also PEEK, POKE oder 
CALL verwenden, schauen Sie bitte 
vorher ins Firmwarehandbuch, ob Sie 
eine Versions-Abfrage brauchen (siehe 
oben). 

Die Hürden im BASIC sind noch gar 
nichts verglichen mit denen in der Ma- 
schinensprache-Ebene. Denn nicht nur 
die ROMs haben tiefgreifende Ande- 
rungen erfahren, sondern auch die 
Vektoren (Sprungtabellen) im RAM 
(z.B.: Fließkomma-Arithmetik). Zwar 
ist die Versionsnummer in Assembler 
schnell mit 


CALL &B900 
LD A, (&C002) 


‚kl u rom enable 
‚rom version 
number... 
(entsprechende Anpassungen) 
CALL &B903 ‚klu rom disable 


erfragt, aber hier fängt die Fleißarbeit 
erst an. Programme werden nicht nur 
länger, sondern auch undurchsichtiger. 
Die Wahrscheinlichkeit der Fehler 
steigt um ein Vielfaches, wenn man 
alle drei CPC-Versionen berücksich- 
tigt. 


Fazit 


Durch eine umsichtige BASIC-Pro- 
grammierung läßt sich in 99 % aller 
Fälle einer mangelhaften Kompatibili- 
tät aus dem Weg gehen, wenn Sie die 
obigen Tips beachten. Sorgen Sie 
selbst dafür, daß Ihre CPCs nicht nur 
den Namen gemeinsam haben. Der 
Dank der Mitbenutzer Ihres Program- 
mes wird Ihnen gewiß sein. Und viel- 
leicht haben wir ja den Anstoß für neue 
Programme gegeben, die den Besitzern 
aller drei CPCs Freude bereiten, wer 
weiß? 

(Eckehart Röscheisen/jb) 


 CPC Software für alle Fälle 


Fantastic Four 


vier Super-Programme zum kleinen Preis 
Die neue CPC-Spielebox enthält vier ausgesuchte TOP-Programme der Spitzenklasse. Da ist für jeden das richtige dabei! 


COCKAIGNE 

— ist ein echtes Weltraum-Actionspiel mit 
allem, was zu dieser Art von Software ge- 
hört. Die Erde kann das immer größer wer- 
dende Ozonloch nicht mehr verkraften, die 
Expedition COCKAIGNE soll in fernen Ga- 
laxien neue Lebensräume erkunden. Als 
Leiter dieser Expedition haben Sie alle 
Hände voll zu tun... 


TERRANAUT I 

- deutsches Science-Fiction-Adventure 
mit hervorragender Grafik. Vor 50 Jahren 
startete das letzte Generationen-Raum- 


Damit das Schreiben 
wieder Spaß macht 


Der Klassiker: 


schiff TERRA von der Erde, um das Plane- 
tensystem Sirius zu kolonisieren. Durch 
eine kosmische Katastrophe verschwand 
die TERRA spurlos. Erst Jahre später fing 
eine Hyperfunkstation einen Funkspruch 
auf - die TERRA wurde in eine andere 
Galaxis katapultiert! Übernehmen Sie die 
Rolle des Commanders von Thaifun, dem 
ersten Galaxienkreuzer, und begeben Sie 
sich auf die Suche nach dem Raumschiff 
TERRA. 


FRUITS 
- Als Bauernsohn Frank jun. ist es Ihre 


Aufgabe, die Ernte der Felder einzufahren. 
Bei Ihrem Vorhaben werden Sie allerdings 
von den “bösen Nasen“ am Gelingen ge- 
hindert, zudem sind einige Feldfrüchte 
ziemlich ungesund. Fruits ist ein Ge- 
schicklichkeits- und Actionspiel der Extra- 
klasse, besitzt eine ausgefeilte Grafik und 
gewährt lange Spielfreude. 


TERRANAUT Il 

— die Überlebenden. Nachdem Sie den 
ersten Teil gut überstanden haben, kommt 
sogleich die nächste Aufgabe auf Sie zu. 
Sie haben den Planeten gefunden, auf 


ConlExT @%9 








Context CPC - bis heute ungeschlagen in der Gruppe der Textverarbeitungen. Dieses Pro- 
gramm besticht vor allem durch seine leichte Anwendungsart, die selbst unerfahrenen Com- 
puterbesitzern den Umgang mit einer Textverarbeitung möglich macht. 


Context CPC - das heißt: 


dem das vermißte Raumschiff TERRA ge- 
strandet ist. Nun gilt es, nach etwaigen 
Überlebenden der Katastrophe zu for- 
schen. Terranaut Il ist ein deutsches Text- 
adventure mit vielen interessanten Featu- 
res und einer spannenden Story. 


Für alle CPCs nur 
als 3“Diskette 


Best.-Nr. 1011 


Autor: Matthias Uphoff 


Darstellung von Sonderschriften wie VERGRÖSSERN und UNTERSTREICHEN, Anzeigen von 
anderen Schriftarten durch Steuerzeichen, denn Sie wollen ja sehen, was Sie drucken. 


Auf Diskette / Kassette gespeicherte Textbausteine sind überall im Text plazierbar, das erspart 


doppelte Schreibarbeit. 


Eingebauter Taschenrechner und Kalender, damit Sie den Überblick behalten. 


Einfachste Bedienung durch logische Tastaturbelegung; alle Funktionen sind über die 
CONTROL- und eine.definierte Taste zu erreichen. 

Funktionen wie EINFÜGEN, FLIESSTEXT, BLOCKFORMATIERUNG und ZEILEN KOPIEREN 
sind über Tastendruck aufrufbar und werden in einer Statuszeile angezeigt. 

Mehrspaltiges Schreiben und Textkopieren erleichtert Ihnen das Erstellen Ihrer Korrespondenz. 
25 KByte Textspeicher mit insgesamt 5 DIN-A4-Seiten, damit Sie auch lange Briefe problem- 
los erstellen können. 

Voreingestellt für die meisten CENTRONICS- Drucker, durch übersichtliche Tabellenprogram- 
mierung anpaßbar an viele EPSON- kompatible Drucker. 

Weiterschreiben während des Druckens, denn ’Time is Money”. 


Dies sind nur einige der vielen Möglichkeiten, die Context Ihnen als Textverarbeitung bietet. 


Der benötigte Hardware-Aufwand ist gering. 
Sie brauchen nur einen CPC 464 / 664 oder 6128 und einen Drucker. Alles andere erklärt Ih- 
nen die ausführliche deutsche Bedienungsanleitung, welche dem Programm beiliegt. 


Und wo gibt’s Context CPC ? 
Bei DMV zu bestellen als 
3“Diskette (Best.-Nr. 207) 
Kassette (Best.-Nr. 206) 


Copyshop 


Copyshop im Detail: 
- Hardcopy in 4 (!) Formaten: DIN A4, DIN A5, 13,5x8,5 cm und 215x135 cm — superschnelle Hardcopy- 
Routine: DIN A4 in ca. 4 Minuten (DMP 4000) - arbeitet in allen3 Modes — Anpaßmenue für JEDEN 
Epson-kompatiblen Drucker - läuft ebenfalls mit den Seikosha-Druckern GP-500 CPC, GP-550 CPC 
und GP-1000 CPC - Anpassung an Drucker möglich, die mit 1280 Punkten pro Zeile arbeiten, z.B. 
CPA-80 GS — Okimate ML 182 -— Anpassung kann beim Verlag angefordert werden - Anpassung auch 
für Drucker möglich, die die Bitbild-Bytes verkehrt herum drucken (das MSB unten statt oben), z.B. NEC 
P2-Pinwriter. - 32 Farbraster über Menue wählbar — Grafikeditor - komfortable Pull-Down-Menues 
- Schnelle Fill-Routine - Beliebige Ausschnittvergrößerungen — Bildschirm invertieren — selbstre- 
lozierende Hardcopy-Routinen für eigene Programme — neue Save- und Load-Routinen erkennen au- 
tomatisch Mode und Farbwerte - Freezer — saved auf Tastendruck Screenshots aus laufenden BASIC- 


Das universelle Hardcopy-Programm für CPC 464/664/6128 - Autor: Matthias Uphoff 


* Das auf dem Datenträger mitgelieferte Programm »Screen Save«, welches beliebige Screens auf Disk 
abspeichert, arbeitet nur nach Entfernen des Vortex-Controllers. 


Und die Weltneuheit: Hardeopy-Simulation auf dem Bildschirm! 

Sie können sich Ihre Hardcopy vor dem endgültigen Ausdruck auf dem Bildschirm ansehen! 
COPYSHOP ist das ultimate Hardcopy-Programm für alle CPC Computer 

(inkl. ausführlicher Bedienungsanleitung) 

Kassette (Best.-Nr. 201) 

3“-Diskette (Best.-Nr. 202) 


Programmen, die anschließend ausgedruckt werden können. 


KNOW 


kann eine unbegrenzte Anzahl von 
Fragen und Antworten verwalten - 
hat ständig ca. 400 Fragen plus Ant- 
worten im Speicher - bietet die Mög- 
lichkeit, eigene Fragen einzugeben, 
und zwar mit einem komfortablen 
Editor - besitzt eine Supergrafik mit 
Window-Technik - ist vollkommen 
menuegesteuert - zeigt bis jetzt 
noch nie dagewesene Tricks mit dem 
Videocontroller - stellt zu jeder Fra- 
ge 5 mögliche Antworten vor - kann 
man mit der ganzen Familie spielen, 
da jeder eine Mindest-Chance von 
1-5 hat - muß man mit Strategie 
spielen, da der Beste in jedem Wis- 


sensgebiet am Ende noch Zusatz- 
punkte bekommt - wurde mit äußerst 
schnellen Suchroutinen ausgestat- 
tet, die verhindern, daß eine schon 
richtig beantwortete Frage nochmals 
erscheint - ist spielbar mit 1-4 Ein- 
zelspielern oder in Gruppen mit ei- 
nem Vielfachen davon - erkennt au- 
tomatisch, welche Fragenblöcke auf 
der Diskette noch unbeantwortet sind 
zeichnet sich nicht nur durch die 
0.9. Punkte als höchst zukunftssi- 
cher aus! 

für CPC 464 - 664 - 6128 

3“ Diskette 

Best.-Nr. 106 


5 1/4“ -Vortex (Best.-Nr. 203) 


YRUS II SCHAC 


Das bewährte Pro- 
gramm für CPC’s 


Wahlweise 3D oder 2D Display, ein- 
stellbare Spielstärke und viele weitere 
Extra-Features (mit deutscher Bedie- 


nungsanleitung). 


zum Sonderpreis 


Kassette Best.-Nr. 130 


STARTEST 


Action-Adventure für alle CPC’s 
Kassette 

Best.-Nr. 103 

Diskette 3“ 

Best.-Nr. 104 


CPC Power-Spiele-Paket 


18 tolle Spiele für Ihren CPC 464, 664 
oder 6128 


4 Disketten 3“ 
Best.-Nr. 102 
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Diskette ohne Laufwerk 


Die Dobbertin RAM-Erweiterung für 
die AMSTRAD CPC 


Wer da behauptet, auf dem CPC-Markt gäbe es nichts Neues, was einem 
Computerfreund imponieren kann, der sollte sich lieber doch mal genauer 
umsehen. Wir zum Beispiel freuen uns, Ihnen die neue RAM-Erweiterung 
der Firma Dobbertin vorstellen zu können. Eine RAM-Erweiterung, die 
nicht nur durch ihren Aufbau, sondern auch durch ihre Handhabung über- 
zeugt. Lesen Sie dazu unseren ausführlichen Testbericht. 


Nach den Erst- oder Zweitlaufwerken 
stehen RAM-(Speicher-) Erweiterun- 
gen seit Urzeiten (wenn man in der 
Computerwelt von Urzeiten reden 
kann) an zweiter Stelle in der Wunsch- 
liste von CPC-Besitzern. 


Die Dobbertin-RAM-Erweiterung 
kommt dabei gerade recht. 


Kein Bankgeheimnis 


Die Speichererweiterung kann in ver- 
schiedenen Ausbaustufen bezogen 
werden, der Aufbau ist jedoch immer 
der gleiche. Das Grundgerät besteht 
aus einem kleinen, schwarzen Gehäu- 
se, in dessen Innerem sich die komplet- 
te Platine mit der Ansteuerlogik befin- 
det. Angeschlossen wird die Dobber- 
tin-RAM-Erweiterung an den Expan- 
sion-(Erweiterungs-) Port des CPC. 
Unser Testgerät enthielt einen Plati- 
nenstecker für den CPC 464/664, der 
über ein kurzes Flachbandkabel an die 
Platine angeschlossen ist. CPC 
6128-Benutzer brauchen hierzu wieder 
einen Adapterstecker, da der CPC 
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6128 im Gegensatz zu seinen kleinen 
Brüdern über eingebaute Normstecker 
verfügt. Der Bus vom Expansionsport 
des CPC ist auf der RAM-Platine 
durchgeführt, somit ist der Anschluß 
weiterer Peripherie, wie die DDI-1- 
Floppy des CPC 464, völlig unproble- 
matisch. 


Die RAM-Bausteine selbst werden in 
zwei RAM-Bänken untergebracht, sie 
sind zu jeweils acht IC-Fassungen zu- 
sammengefaßt. Rechnen wir kurz mal 
nach: Zwei RAM-Bänke mit je acht 
Speicherbausteinen des Typs 41257 
(entsprechen dem 41256-Typ mit 
32 KByte) ergeben also: 2*8*32= 
512 KByte. Die RAM-Karte kann also 
in der höchsten Ausbaustufe mit 512 KByte 
RAM bestückt werden, dies genügt 
wohl den meisten Anwendungen. 


Die beiden Speicherbänke werden mit 
BankO und Bankl benannt, diejenige, 
die näher am Flachbandkabel sitzt, ist 
BankO. Für diejenigen, die sich die 
RAM-Erweiterung ohne RAMs zule- 
gen wollen, ist zu beachten, daß eine 
Bank vollständig bestückt werden 


muß, und zwar durchweg mit dem glei- 
chen RAM-Typ, sonst funktioniert die 
RAM-Erweiterung nicht. Eine Konfi- 
guration mit RAMs des Typs 4164 in 
BankO und denen des Typs 41256 in 
Bankl geht also nicht. 

Interessant ist an der RAM-Erweite- 
rung, daß jeder Anwender sich die 
Ausbaustufe auswählen kann, die im 
Augenblick für seine Zwecke reicht, 
diese jedoch auch nachträglich erwei- 
tern kann. Dazu befinden sich auf der 
Platine noch zwei Steckbrücken (Jum- 
per) ünd ein leerer IC-Sockel. Der 
Jumper Jl unterscheidet zwischen der 
Verwendung von RAM-Bausteinen des 
4164’er bzw. des 41256’er Typs. Mit 
ihm ist es also möglich, zwischen Er- 
weiterungen von 64K (nur BankO mit 
4164 besetzt) und 128K (BankO und 
Bankl mit 4164 besetzt) oder 256K 
(BankO mit 41256 besetzt) und 512K 
(BankO und Bankl mit 41256 besetzt) 
zu wählen, bei den Fertigversionen 
sind die Jumper natürlich schon einge- 
stellt. Werden Version 256K und 512K 
verwendet, wird in den leeren Sockel 
noch ein zusätzliches Logik-IC einge- 
setzt, auch dies ist bei den Fertigversio- 
nen schon vorhanden. Jumper J2 dient 
zur Unterscheidung der Rechnerkonfi- 
guration zwischen CPC 464/664 und 
CPC 6128. Dies ist notwendig, um bei 
Anschluß des CPC 6128 die BankO 
stillzulegen, da sie intern im Rechner 
schon vorhanden ist, deswegen ist auch 
keine 128-KB-Erweiterung für den 
CPC 6128. 

Zusätzlich kann die RAM-Erweiterung 
zwei EPROM-Plätze gegen einen Auf- 
preis bekommen, die für 2764 oder 
27128’er EPROMs eingerichtet sind. 
Für diese Nachrüstung wird ein pro- 
grammierbarer Logikbaustein benö- 
tigt, deshalb ist die Nachrüstung nicht 
selbst durchführbar. Für die reine 
RAM-Anwendung sind diese EPROMs 
aber nicht nötig. 


Ohne Soft kein Hard 





Kommen wir nun zur mitgelieferten 
Software. Sie bildet eigentlich das 
Herzstück des ganzen Systems, denn 
nur mit ihr ist die RAM-Erweiterung 
erst nutzbar. Und hier hat sich die Fir- 
ma Dobbertin wirklich Mühe gegeben. 
Auf der mitgelieferten 3*-Diskette be- 
finden sich Programme zum Einrichten 
einer CP/M Plus- oder CP/M 
2.2-Diskette. 

Fangen wir mit der CP/M Plus-Ver- 
sion an. Das dazugehörige Programm 
nennt sich PATCH30 und besteht aus 
einem BASIC- und einem Binärteil. 


I ee ——— Haldweiie 


Die Herstellung einer gepatchten Dis- 
kette ist relativ einfach. Zuerst legt 
man sich eine Sicherheitskopie der Sy- 
stemdiskette an. Danach startet man 
das Patch-Programm, es verlangt nach 
der System-Kopie, auf der sich das 
C10CPM3.EMS-File befindet. Dieses 
wird nach einer Sicherheitsabfrage ein- 
gelesen, an die Speichererweiterung 
angepaßt und wieder auf die Diskette 
zurückgespeichert. Der vorhandene 
Speicher wird nach dem Start von 
CP/M automatisch als RAM-Disk for- 
matiert und anerkannt. 


Mallard-BASIC 
auf dem CPC 464? 


Nun, um das Beste gleich vorneweg zu 
nennen, es geht. Die gepatchte CP/M 
Plus-Diskette läuft nicht nur auf dem 
CPC 6128, sondern auch auf dem CPC 
664 und 464 mit der angeschlossenen 
RAM-Disk. Einem CPC 464-Besitzer 
steht mit einem Male die ganze CP/M 
Plus-Software zur Verfügung und nicht 
nur das. Auch PCW-(Joyce-) Program- 
me laufen plötzlich auf dem kleinsten 
der CPCs, sofern Sie nicht auf be- 
stimmte Grafikroutinen zurückgreifen 
oder bestimmte Optionen des PCW- 
Rechners benutzen. Beim Test brach- 
ten wir sogar Mallard-BASIC (für 
Nicht-Joycler: Mallard-BASIC ist die 
BASIC-Programmiersprache des PCW 
schlechthin) zum Laufen, MB-Pro- 
gramme liefen anstandslos, wenn sie 
nicht... (siehe oben). 


Unser Testgerät befand sich in der vol- 
len Ausbaustufe, somit standen der 
RAM-Disk, die die Laufwerksbezeich- 
nung M: trug, ganze 444 KByte zur 
Verfügung. Wir haben eine Komplette 
Systemdiskette über eine PROFI- 
LE.SUB-Datei nach dem Start in das 
Laufwerk M: kopiert, dazu noch einen 
großen Haufen CP/M-Software, wie 


WordStar, Mallard-BASIC, den Fast- 
BASIC-Compiler und vieles mehr, und 
hatten dennoch genug Platz für andere 
Projekte. Das Arbeiten mit dieser 
RAM-Disk unter CP/M macht jeden- 
falls Spaß, man ist nicht dauernd ge- 
zwungen, Diskettenwechsel vorzu- 
nehmen. 


Zusätzlich zum Patchprogramm für 
CP/M Plus befindet sich noch eine Da- 
tei namens MODE.COM auf der Dob- 
bertin-Diskette, sie dient zum Einstel- 
len des Bildschirmmodes unter CP/M 
und teilt den neuen Mode automatisch 
dem Betriebssystem mit, so daß sich 
alle residenten Befehle darauf einstel- 
len. Dazu existiert noch eine FAST- 
Routine, die die Bildschirmausgabe 
unter CP/M Plus steuert. Auch diese 
Programme liefen auf den kleineren 
CPC einwandfrei. 


Vorhang auf für CP/M 2.2 





Die Herstellung einer CP/M 2.2- 
Diskette ist ein bißchen umständlicher 
zu bewerkstelligen. Zuerst einmal soll- 
te man sich zwei neue Disketten bereit- 
halten und die Anleitung genauestens 
durchlesen. Die RAM-Disk kann unter 
CP/M 2.2 nämlich auch nur dann ange- 
sprochen werden, wenn dies dem Be- 
triebssystem mitgeteilt worden ist. Da 
das CP/M 2.2-System im Gegensatz 
zum CP/M Plus nicht resident im Spei- 
cher vorhanden ist, sondern auf den 
Systemspuren ’sitzt’, ist es hierbei not- 
wendig, alle erforderlichen Anderun- 
gen ’per Hand’ einzugeben. Der Patch 
wird durch das Andern der vorgegebe- 
nen TPA vorgenommen. Trotzdem ist 
es selbst Einsteigern möglich, anhand 
der mitgelieferten Beschreibung, die 
als Textfile auch auf Diskette vorhan- 
den ist, diese Anderungen vorzuneh- 
men. Hat man sich dann seine neue 
CP/M-Diskette erstellt, macht das Ar- 











auf jedem Computerarbeitsplatz einen Standort. 





Die Dobbertin RAM-Disk von innen. Klein in den Ausmaßen findet sie wohl 








Das gepatchte CP/M+ System erzeugt das Laufwerk M: Hier auf einem 


beiten mit der neuen RAM-Disk genau- 
so viel Spaß, wie unter CP/M Plus. 
Nach dem Patch besitzt die TPA eine 
Größe von 60 KByte, ohne BDOS so- 
gar 63K, eine Größe, die wohl von kei- 
nem anderen CP/M 2.2 Rechner er- 
reicht wird. Dazu besitzt die neue 
CP/M-Diskette eine bessere Warm- 
start-Routine. Bei manchen Program- 
men müssen nach Programmende die 
Systemroutinen wieder nachgeladen 
werden, dank des neuen Systems wer- 
den diese Routinen im RAM unterge- 
bracht, nur das Laufwerk muß noch 
kurz eingeloggt werden. Weiterhin 
verfügt das ’'neue’ CP/M 2.2 über eine 
integrierte FAST-Routine, die die kom- 
plette Bildschirmausgabe übernimmt und 
einen 8-Bit-Druckerpatch, der hardware- 
mäßige Eingriffe zur Installation des ach- 
ten Druckerbits unterstützt. Auf der Dis- 
kette zur Erweiterung befindet sich noch 
das Programm ’LANGUAGE.COM’ 
zum Einstellen eines von vier verschiede- 
nen Zeichensätzen. 


Fazit 


Leider fehlt der Dobbertin-RAM-Disk 
eines noch zur Note 1, nämlich Befeh- 
le, die die ’Chip-Disk’ auch unter 
BASIC zugänglich machen, aber hier 
wird es in naher Zukunft auch eine 
Möglichkeit geben. Laut Auskunft der 
Firma Dobbertin wird dann ein 
EPROM angeboten (für die interne 
EPROM-Bank der RAM-Disk), auf 
dem sich ein BASIC-Manager für die 
RAM-Disk befindet. Aber auch im 
’NUR-CP/M’-Format macht die 
RAM-Disk einen sehr guten Eindruck, 
die Handhabung unter CP/M ist ein 
Kinderspiel, die Initialisierung mit der 
mitgelieferten Software sehr einfach. 
Das Endergebnis lautet also: Man be- 
kommt mit derDobbertin RAM-Erwei- 
terung ein sehr nützliches Peripherie- 
teil für seinen CPC. (jb) 





CPC 464 in der höchsten Ausbaustufe. 
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Unheimliche Begegnungen 
Mit Maze-Glider auf Abenteuersuche 


Labyrinthspiele der herkömmlichen Art locken schon längst keinen gedien- 
ten CPCler mehr hinter dem Ofen hervor. Unser Programm Maze-Glider 
jedoch entführt Sie in die tiefsten Gänge eines interstellaren Labyrinths, wo 
neben den zahlreichen zu lösenden Aufgaben auch viele noch nie dagewese- 
ne Gefahren auf die Abenteurer warten. 

Die Reise mit dem Maze-Glider kann beginnen... 


Das Spiel selbst besticht neben der 
komplexen Spielaufgabe durch einen 
rasanten Bildaufbau, der den Spieler 
immer wieder vor schnell zu treffende 
Entscheidungen stellt. 


So sollte man sich vor allem vor den 
energiesaugenden und äußerst lästigen 
Aliens in acht nehmen. Doch zum 





Bild 1: Mit dem Mazeglider unterwegs 
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Glück hat man ja seine speziell ent- 
wickelte Alien-Laserwaffe dabei, ge- 
gen die noch kein Alien-Kraut gewach- 
sen ist. 


Was ist zu tun? 


Ziel des Spieles ist es zunächst einmal, 
die im Labyrinth versteckte Diskette zu 


finden. Diese Diskette enthält Paßwör- 
ter, mit denen Sie die im Labyrinth be- 
findlichen Computer zur Herausgabe 
eines Teils des Hauptpaßwortes verlei- 
ten können. 

Im Verlauf des Spieles werden Sie eini- 
ge Gegenstände finden, die Ihnen sehr 
nützlich sind. So gibt es unter anderem 
sogenannte Energiebällchen, die Ihnen 
sofort wieder die Energieanzeige auf- 
füllen, diese hat bei Begegnung mit 
Alien nämlich sehr gelitten. 

Des weiteren sind einige im Labyrinth 
versteckt Computerterminals ausfindig 
zu machen. An diesen Terminals benö- 
tigen Sie die auf der Diskette befindli- 
chen Paßwörter. Am Anfang hilft hier 
nur probieren, denn jedes Terminal 
verlangt sein eigenes Paßwort. 
Nachdem man am jeweiligen Terminal 
das richtige Paßwort eingegeben hat, 
gibt der Computer einen Buchstaben 
zurück. Diesen Buchstaben sollte man 
sich tunlichst notieren, denn alle auf 
diese Art gesammelten Buchstaben 
werden zum Schluß das richtige Lo- 
sungswort ergeben, um den Hauptcom- 
puter in der Rechenzentrale auszu- 
schalten und so das Licht der Freiheit 
wieder zu erblicken. 

Die auftauchenden Diamanten sollten 
Sie ebenfalls nicht verschmähen, sie 
erhöhen die Punktzahl und damit den 
Spielanreiz. Ganz wichtig kann ein 
Kompaß werden, der irgendwo im La- 
byrinth liegt, und Ihnen den Durch- 
blick durch dasselbe wesentlich er- 
leichtert. 


Die Steuerung 


Maze-Glider kann sowohl mit der Ta- 
statur als auch mit Joystick gesteuert 
werden. 

Die Tasten links/rechts sind für die 
Richtungen zuständig, die Feuer-bzw. 





Bild 2: Achtung, ein Computer. Bitte das Passwort eingeben. 


EEE EEE EEE ;.(/° 1:\\|1 008 


COPY-Taste bedient den Alien-Laser. 
Die Pfeiltaste unten bzw. den Joystick 
zurück bringt eine Karte auf den Bild- 
schirm, die ihre jeweilige aktuelle Po- 
sition im Labyrinth und die bisher be- 
schrittenen Wege anzeigt. 


Die Gegenstände, die Ihnen im Verlauf 
von Maze-Glider begegnen, sind mit 
der Taste <F7> aufzunehmen. Den 
Computer sprechen Sie mit <F8> an, 
er verlangt das Paßwort, welches Sie 
auf der Diskette finden können, indem 
Sie den Inhalt mit <F9> auflisten. 








Hinweis zum Abtippen: 

Das Programm Screenmaker (Li- 
sting 3) erzeugt nach dem Starten das 
File “screen.bin“, welches als Titel- 
bild vom Hauptprogramm benötigt 
wird. 


(Pascal v. Hutten/sr) 

































































































1310 SYMBOL 202,34,34,28,51,12,0,0,0 [1626] 
1320 SYMBOL 203,36,36,24,204,63,0,0,0 [2002] 
1330 SYMBOL 204,192,224,66,8,0,64,0,0 [2090] 
1340 SYMBOL 205,3,71,1,0,8,0,2,0 [1801] 
1350 SYMBOL 206,32,224,192,0,68,240,98,64 [2454] 
10 ' LOADER fuer MAZE-GLIDER [2367] 1360 SYMBOL 207,1,3,2,72,24,120,50,0 [1366] 
20 INK 0,0:INK 1,13:INK 2,10:INK 3,26:80RD [2068] 1370 SYMBOL 208,0,8,61,24,0,132,33,12 [1602] 
ER O:PAPER 0:MODE 1 1380 SYMBOL 209,64,6,46,78,160,18,166 [1997] 
30 PEN 3:LOCATE 10,10:PRINT"MAZE. - GLIDER" [2847] 1390 SYMBOL 210,30,9,65,4,24,60,1,0 [1727] 
40 PEN 2:LOCATE 10,12:PRINT"is loading..." [3291] 1400 SYMBOL 211,140,96,24,240,98,0,8,0 [1597] 
50 PEN 1:LOCATE 10,14:PRINT"Please wait... [2498] 1410 SYMBOL 212,129,192,0,0,0,0,192,128 [2357] 
% 1420 SYMBOL 213,0,24,4,2,2,0,0,0 [1330] 
60 LOAD" !screen",&C000 [554] 1430 SYMBOL 214,0,0,0,0,128,128,64,49 [1992] 
70 RUN" !mgprgm" [452] 1440 SYMBOL 215,2,0,0,2,4,4,24,0 [1315] 
1450 exp1$(1)=CHR$(200)+CHR$(201)+CHR$(10) [4247] 
| +CHR$LBE)+CHR$(E)+CHR$(202)+CHR$ (203) 
| 1460 exp1$(2)=CHR$(208)+CHR$(209)+CHR$(10) [4599] 
| +CHR$L(E)+CHRE(E)+CHRE(2ZIO)+CHR$(211) 
| 1470 exp1$(3)=CHR$(204)+CHR$(205)+CHR$(10) [3446] 
+CHR$(8.)+CHR$(B)+CHR$(206)+CHR$(207) 
1480 exp1$(4)=CHR$(212)+CHR$(213)+CHR$(10) [4680] 
+CHR$(B)+CHR$(B)+CHRE(21I4)+CHRE(215) 
1490 exp1$(5)=CHR$(32)+CHR$(32)+CHR$(10)+C [3309] 
HR$(B)+CHR$(S)+CHR$(32)+CHR$(32) 
1500 DEFINT a-z [553] 
1000 | KRERKKEKKKRKKÄEKKKEKKREK [971] 1510 richtung$(1)="-N-" 12:08:22 
1001 '% % [230] 1520 richtung$(2)="-E-" 1722] 
1002 '% MAZE-GLIDER % [1273] 1530 richtung$(3)="-S-" [896] 
elta ee, en % [1427] 1540 richtung$(4)="-W-" {1031] 
1004 ' % Programmed by % [1317] 1550 DIM raum(20,20),bild(15,4),da(21,21), [2570] 
1005 ' % Pascal v.Hutten % [1599] code$(19),cde$(19) 
1006 ' % '88 % [194] 1560 RESTORE 1570:FOR t=1 TO 19:READ code$ [2302] 
1007 ' %----------------- % [1427] (t),cde$(t):NEXT 
1008 ' % (C) by Ortex+SP % [1010] 1570 DATA AMSTRAD,A,"","",JOSHUA,C,"",""," [9630] 
1009 ' % % [230] ","" COLOGNE,E,"","",MICKEY,T,BERLIN,E,"", 
1010 | KKEREKKKKKKEKKKKEKKKK [971] “" EURYTHMICS,O,"","",X1-78-MB,U, JOYSTICK, 
1020 ENV 1,15,-1,10 [704] R,"","",GAME OVER,M,POWER,M,TOP SECRET,P,D 
1030 PLOT 320,200 [621] ONALD,G 
1040 SYMBOL AFTER 32 [1296] 1580 RESTORE 1640 [575] 
1050 SYMBOL 251,0,&F,&1D,&3E,&7D,&7F,&7D,& [1728] 1590 FOR t=1 TO 12 [802] 
7E 1600 READ a [428] 
1060 SYMBOL 250,0,&F0,&68,8&A4,&62,&FE,&62, [1881] 1610 a$=CHR$(a) [522] 
&A2 1620 password$=password$+ta$ [1434] 
1070 SYMBOL 249,&7D,&7E,&7F,&7E,&30,&1E,&F [2335] 1630 NEXT [350] 
‚o 1635 GOTO 1950 [341] 
1080 SYMBOL 248,8&62,&A2,&FE,&A2,&64,&A8,&F [2769] 1640 DATA 67,79,77,80,85,84,69,82,71,65,77 [1261] 
0,0 ‚69 
1090 SYMBOL 247,1,1,2,2,3,7,&3B,&CF [1906] 1650 RESTORE 1740 [571] 
1100 SYMBOL 246,0,0,&80,&80,&80,&40,&F8,&E [2065] 1660 FOR y=1 TO 20 weht 
6 1670 FOR x=1 TO 20 [753] 
1110 SYMBOL 245,&3F,5,3,2,2,1,1,0 [1616] 1680 READ raum(x,y) [994] 
1120 SYMBOL 244,8&88,&C0,&80,&80,&80,0,0,0 [2244] 1690 NEXT x,y:r=0 [681] 
1130 SYMBOL 235,0,0,1,3,&E,&1F,&7E,&FD [1892] 1700 RANDOMIZE TIME:x=INT(RND*20+1):y=INT( [3494] 
1140 SYMBOL 234,0,0,&80,&40,&B0,&48,8&A6,&4 [2813] RND*20+1) 
1 1710 IF raum(x,y)/10=INT(raum(x,y)/10) THE [3132] 
1150 SYMBOL 233,&7E,&1F,&E,3,1,0,0,0 [1330] N raum(x,y)=raum(x,y)+5:r=r+l 
1160 SYMBOL 232,&A6,8&48,&80,&40,&80,0,0,0 [2569] 1720 IF r=40 THEN 1740 [755] 
1170 SYMBOL 239,255,129,&C1,65,&C1,129,131 [2051] 1730 GOTO 1700 [359] 
‚135 1740 DATA 030,020,020,020,020,020,020,080, [4550] 
1180 SYMBOL 238,255,129,129,129,129,129,&C [2376] 080,080,040,030,080,020,080,020,020,040,03 
1,&E1 0,042 
1190 SYMBOL 237,135,131,129,128,128,128,12 [2951] 1750 DATA 010,030,020,020,020,020,040,090, [3933] 
8,255 050,060,110,110,070,020,070,080,040,010,01 
1200 SYMBOL 236,&£1,&C1,129,1,1,1,1,255 [2123] 0,010 
1210 SYMBOL 255,3,14,29,58,125,122,245,250 [2274] 1760 DATA 010,010,031,020,020,122,010,061, [4851] 
1220 SYMBOL 254,192,176,72,164,2,70,1,147 [1594] 020,020,050,060,021,020,040,010,010,091,05 
1230 SYMBOL 253,253,250,125,126,63,31,15,3 [1696] 0,010 
1240 SYMBOL 252,69,171,86,174,220,248,240, [2614] 1770 DATA 010,010,090,020,020,020,070,020, [4439] 
192 020,020,020,020,020,040,090,100,010,060,08 
1250 SYMBOL 243,16,8,7,28,54,27,12,23 [2317] 0,050 
1260 SYMBOL 242,8,16,224,24,36,72,16,56 [2146] 1780 DATA 010,010,060,020,020,020,020,040, [3634] 
1270 SYMBOL 241,51,52,24,2,64,9,32,4 [1748] 030,040,030,020,040,010,010,010,060,020,07 
1280 SYMBOL 240,244,52,24,2,136,33,8,64 [2120] 0,040 
1290 SYMBOL 200,16,8,7,29,46,31,14,21 [2135] 1790 DATA 010,060,020,020,020,040,152,010, [2881] 
1300 SYMBOL 201,8,16,224,24,160,120,82,168 [2465] 090,050,090,080,050,010,010,090,040,030,02 
0,100 
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1800 DATA 010,030,080,020,120,010,060,070, 
050,030,100,010,030,050,090,100,060,050,03 
0,100 

1810 DATA 090,100,011,030,020,070,080,081, 
080,050,010,010,011,030,050,090,020,041,14 

2,010 

1820 DATA 010,140,010,090,120,130,100,140, 

010,030,100,142,010,090,040,090,020,070,02 
0,050 

1830 DATA 090,020,050,090,124,130,110,040, 
010,010,090,040,010,010,060,050,030,020,02 
0,020 

1840 DATA 090,020,020,100,030,020,050,010, 
090,050,010,010,010,010,030,122,010,130,02 

0,040 

1850 DATA 090,040,150,140,010,030,080,100, 

060,080,050,010,010,010,010,030,050,030,02 

0,100 

1860 DATA 013,060,051,030,100,090,100,091, 
120,010,152,010,011,090,100,010,130,071,02 

0,100 

1870 DATA 010,030,120,010,010,060,050,060 
‚040,010,010,142,010,140,140,060,020,020,0 

40,010 

1880 DATA 060,110,080,100,090,080,080,040, 

010,010,090,040,010,130,020,080,080,020,11 
0,100 

1890 DATA 132,110,100,010,090,110,110,100, 
090,070,050,010,090,020,040,010,010,030,05 
0,010 

1900 DATA 150,060,110,110,070,110,110,100, 
060,020,020,110,110,040,010,060,050,010,15 

2,010 

1910 DATA 090,120,011,010,152,090,110,101, 
130,080,040,010,011,010,060,020,020,051,09 

0,050 

1920 DATA 090,020,100,010,010,060,070,050, 
152,140,060,070,100,060,020,040,030,040,06 

0,040 

1930 DATA 140,130,050,060,070,020,020,120, 

060,020,020,020,070,020,020,070,050,060,02 

0,050 

1940 DATA 010,010,010,010,010,010,010,010, 

010,010,010,010,010,010,010,010,010,010,01 

0,010 

1945 RETURN 

1950 RESTORE 2000 

1960 FOR t=1 TO 15 

1970 FOR r=1 TO 4 

1980 READ bild(t,r) 

1990 NEXT r,t 

2000 DATA.1,2,1,2,2,1,2,1,3,6,5,4,4,3,6,5, 

5,4,3,6,6,5,4,3,7,10,8,9,8,9,7,10,9,7,10,8 
1058,9,7, 32, 11,11, 17,72, 15h 13 s1a8 aaa 
48, 14,12,15,13, 15,13, 14,12 

2010 ' >»>>>> HAUPTPROGRAMM <c<<£ 

2020 INK 0,0:INK 1,13:INK 2,10:INK 3,26:BO 

RDER 0 

2030 GOSUB 3220 

2040 GOSUB 1650:x=1:y=11:ri=2:energie=110: 

GOSUB 4170:compass=0:en=0:sc=0:robot=0:com 

pass=0:pass=0:WINDOW SWAP 0,1:PEN 0:LOCATE 
7,21:PRINT STRING$(3,143);:LOCATE 7,24:PR 

INT STRING$(28,143);:WINDOW SWAP 1,0 


2050 IF mp$(1)="--KEYBOARD--" THEN links=8 
zrechts=1:hoch=0:map=2:feuer=9 
2060 IF mp$(1)="--JOYSTICK--" THEN Tinks=7 


4:rechts=75:hoch=72:map=73:feuer=76 

2070 GOSUB 3200 

2080 evzev+ti1:IF ev=10 THEN ev=C:energie=en 
ergie-1:GOSUB 4130 

2090 IF compass=1 THEN WINDOW SWAP 0,1:PAP 
ER 1:PEN O0:LOCATE 7,21:PRINT richtung$(ri) 
;:WINDOW SWAP 1,0 

2100 m=INT(RND*10)+1:IF m<>10 OR raum(x,y) 
-(10*INT(raum(x,y)/10))<>0 THEN 2120 ELSE 
GOSUB 2890 

2110 robot=1:s=10 

2120 GOSUB 3050 

2130 bId=bild(INT(raum(x,y)/10),ri) 

2140 da(x,y)=1 

2150 IF bid=1 THEN GOSUB 3170 

2160 IF bid=2 THEN GOSUB 3100:G0SUB 3140 
2170 IF bld=3 THEN GOSUB 3140 

2180 IF bid=4 THEN GOSUB 3100 

2190 IF bid=5 THEN GOSUB 3100:G0SUB 3170 
2200 IF bid=6 THEN GOSUB 3140:G0SUB 3170 
2210 IF bid=7 THEN GOSUB 3100:G0SUB 3140:G 
OSUB 3170 

2220 IF bid=8 THEN GOSUB 3100:G0OSUB 3140 
2230 IF b1d=9 THEN GOSUB 3140:GOSUB 3170 
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[4236] 


[3976] 


[4277] 


[4213]} 


[3223] 


[3073] 


{3435} 


[4210] 


[4107] 


[4538] 


[3680] 


[4022] 


[4055] 


[3649] 


[4196] 


[555] 
[566] 
[819] 
[660] 
[1058] 
{557} 
[6762] 


[1726] 
[1571] 


[9489] 
[11571] 


[4072] 
[49371] 


[353] 
[3217] 


[6570] 


[3781] 


[453] 
[359] 
[1800] 
[913] 
[1410] 
[1359] 
[451] 
[1282] 
[2199]} 
[1786] 
[2054] 


[787] 
[2350]} 














2240 IF bid=10 THEN GOSUB 3100:GOSUB 3170 
2250 IF bid=11 THEN GOSUB 3100:GOSUB 3140: 
GOSUB 3170 

2260 IF bid=12 THEN GOSUB 3100 

2270 IF bid=13 THEN GOSUB 3140 

2280 IF bid=14 THEN GOSUB 3170 

2290 inhalt=raum(x,y)-(10%*INT(raum(x,y)/10 


2300 IF inhalt=1 THEN GOSUB 2810 

2310 IF inhalt=2 THEN GOSUB 2770 

2320 IF inhalt=3 THEN GOSUB 2850 

2330 IF inhalt=4 THEN GOSUB 2950 

2340 IF inhalt=5 THEN GOSUB 2990 

2350 IF robot=1 THEN 2430 ELSE IF INKEY(]li 

nks)<>-1 THEN ri=ri-1:IF ri=O THEN ri=4:G0 
TO 2070 ELSE GOTO 2070 

2360 IF INKEY{rechts)<>-1 THEN ri=ri+1:IF 
ri=5 THEN ri=1:G0T0 2070 ELSE GOTO 2070 
2370 IF INKEY{hoch)<>-1 THEN IF hceh=1 THEN 
GOTO 2470 

2380 IF INKEY(map)<>-i THEN GOTO 2570 

2390 ' 

2400 IF INKEY{10)<>-1 THEN IF inhalt=O0 THE 

N GOSUB 3490 ELSE ON inhalt GOSUB 3670,358 
0,3760,3910,4050 

2410 IF INKEY(11)<>-1 THEN IF inhalt=2 THE 
N 4220 

2420 IF INKEY{3)<>-1 THEN IF pass=1 THEN G 
OSUB 4450 

2430 IF INKEY(feuer)<>-1 THEN GOSUB 2680 
2440 s=s-1:IF s=-1 THEN s=0 

2450 IF robot=1 THEN en=zen+i1:IF en=10 THEN 
energie=energie-l:en=0:G0OSUB 4130 

2460 GOTO 2350 

2470 ' 

2480 IF ri=1 THEN y=y-1 

2490 IF ri=2 THEN x=x+1 

2500 IF ri=3 THEN y=y+1 

2510 IF ri=4 THEN x=x-1 

2520 IF x=21 THEN 4580 

2530 GOTO 2070 

2540 ' »»>>» SCORE <<cc<< 

2550 WINDOW SWAP 1,0:PAPER 1:PEN O:LOCATE 
32,21: PRINT USING"###";sc:WINDOW SWAP 0,1 
2560 RETURN 

23707.0.33>33.. IIMAR N RC % 

2580 FOR xx=280 TO 320 STEP 2:PLOT xx,180, 
1:DRAW xx,220:NEXT:PLOT 278,178,2:DRAW 278 
‚222:DRAW 322,222:DRAW 322,178:DRAW 278,17 
8:PLOT 276,176,3:DRAW 276,224:DRAW 324,224 
ıDRAW 324,176:DRAW 276,176 

2590 FOR xx=280 TO 320 STEP 2 

2600 FOR yy=220 TO 180 STEP -2 

2610 IF da((xx-278)/2,21-{(yy-178)/2))=ı T 

HEN PLOT xx,yy,O ELSE PLOT xx,yyi,2 

2620 IF (xx-278)/2=x AND 21-((yy-178)/2)=y 
THEN PLOT xx,yy,3 

2630 IF INKEY(47)<>-1 THEN xx=320:yy=180 

2640 NEXT 

2650 NEXT 

2660 WHILE INKEY$<>" ":WEND 

2670 GOTO 2070 

2680 ' >>>>> LASER <<<c<c< 

2690 PRINT CHR$(23)CHR$(1); 

2700 SOUND 129,150,150,15,1,,5 

2710 PLOT 120,130,2:DRAW 320,240:DRAW 516, 

130 

2720 PLOT 120,130,2:DRAW 320,240:DRAW 516, 

130 

2730 PRINT CHR$(23)CHR$(0); 

2740 IF. robot<>1 THEN GOTO 4800 

2750 robot=0:sc=sc+s:GOSUB 2540:G0OSUB 4720 

2760 RETURN 

2770 ' »»»>»3> COMPUTER <<<<< 

2780 LOCATE 13,8:PRINT CHR$(255)CHR$(254) 

27930 LOCATE 13,9:PRINT CHR$(253)CHR$(252) 

2800 RETURN 

2810 ° >>»>>»> ENERGIEKAPSEL <<<<c 

2820 LOCATE 13,8:PRINT CHR$(251)CHR$(250) 

2830 LOCATE 13,9:PRINT CHR$(249)CHR$(248) 

2840 RETURN 

2850 ' »»>>» KOMPASS <<c<c<c 

2860 LOCATE 13,8:PRINT CHR${247)CHR$(246) 

2870 LOCATE 13,9:PRINT CHR$(245)CHR$(244) 

2880 RETURN 

2890 >»>>>> E-ROBOT <<c<c 

2900 LOCATE 13,8:PRINT CHR$({243)CHR$(242) 

2910 LOCATE 13,9:PRINT CHR$(241)CHR$(240) 

2920 PLOT 312,236,3:DRAW 312,240:DRAW 314, 

238:PL0OT 312,246:DRAW 316,242:DRAW 324,242 
:DRAW 328,246:DRAW 320,240:DRAW 322,240 
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[1269] 
[2330] 


[1837] 
[1542] 
[736] 

[1872] 


[1210] 
[1384] 
[1302] 
[1430] 
[1299] 
[6997] 


[4986] 
[1200] 


[1074] 
fi17] 
[3330] 


[2294] 
[2485] 


[1957] 
[617] 
[5136] 


[309] 
[117] 
[735] 
[1033] 
{439 ] 
[993] 
[1218] 
{357] 
[1206] 
[5644] 


[555] 
[650] 
[10558] 


[1830] 
[1571] 
[3859] 


[4285] 


[2615] 
[350] 
[350] 
[1948] 
[357] 
[651] 
[1919] 
[1883] 
[1957] 


[1957] 


[1923] 
[2371] 
[2001] 
[555] 

[1756] 
[1456] 
[1338] 
[555] 

[1115] 
[1637] 
[1871] 
[555] 

[1302] 
[1362] 
[1594] 
{555} 

[824] 

[1434] 
[1426] 
[6880] 


Programm ı FRAKTAL- = 
Generator 3 D Die Dritte 


Dimension 








2930 PLOT 316,248:DRAW 324,248:DRAW 320,24 [4185] 
4:DRAW 318,246:DRAW 320,246:PLOT 328,236:P 
LOT 328,238 





2940 RETURN : [555] 

2950 ' >»>»> PASSWORDDISC <<c<<c< [1178] s 

2960 LOCATE 13,8:PRINT CHR$(239)CHR$(238) [1794] Vergessen Sie den grauen Alltag: Der FRAKTAL GENERATOR 3D ent- 

2970 LOCATE 13,9:PRINT CHR$(237)CHR$(236) [1936] führt Sie in märchenhafte Landschaften voller bizarrer Formen und Far- 

2980 RETURN [555] ben. Werden Sie zu einem Forscher im Wunderland der Fraktale. Ent- 

ro a RAN a decken Sie Welten, die vor Ihnen noch nie ein Mensch erblickt hat, und 

ee LOCATE 13,9: PRINT CHR$(233 ae [1508] speichern Sie Ihre Erinnerungsfotos auf Diskette oder Festplatte, um 

3020 ‚PLOT 318,248,3:DRAW 326,240:DRAW 318, [7342] sie später einem staunenden Bekanntenkreis vorzuführen... 

232:DRAW 316,234:DRAW 322,240:DRAW 318,244 

:DRAW 314,240:DRAW 316,238:DRAW 320,242:DR 

AW 316,246 . . ; 

3030 PLOT 324,244:DRAW 324,236:DRAW 328,24 [3376] Die Fakten: Der FRAKTAL GENERATOR 3D ist... 

0:DRAW 326,242:PLOT 330,240 .. unglaublich schnell: Nur 6 Minuten 30 Sekunden braucht der CPC, 

2 De ee en um das ’Apfelmännchen’ auf dem CPC als 3D-Landschaft darzustellen 
= ür 8-Bit- ! 

3060 PLOT 114,156,0:0RAW 240,200:DRAW 240, [2854] Weltrekord’für B-Bil-Röchnerl 

300:DRAW 114,346 ...farbenfroh: 10 gleichzeitig darstellbare Farben in MODE 1 durch 

3070 PLOT 526,156,0:DRAW 400,200:DRAW 400, [3047] eine trickreiche Mischtechnik. 

300:DRAW 526,346 5 . = . ; R 

3080 PLOT 240,200:DRAW 400,200:PLOT 240,30 [2633] ... vielseitig: Neben den Bildern der Mandelbrot-Menge (’Apfelmänn- 

0:DRAW 400,300 chen’) erzeugt der FRAKTAL GENERATOR 3D auch die daraus abge- 

3090 rchts=0:1nks=0:hch=0:RETURN [1089] leiteten Julia-Mengen und liefert damit eine Vielzahl weiterer interes- 

3100 ' >>>>» TOR LINKS <cc<c [1164] santer Bildmotive. 

3110 PLOT 130,162,1:DRAW 180,178:PLOT 130, [8810] 

160,0:DRAW 130,280:DRAW 180,274:DRAW 180,1 ...komfortabel: Die Bedienung erfolgt konsequent über Pulldown- 

80:DRAW 170,180:DRAW 170,270:DRAW 180,270: Menues. Die Bilder können auf Diskette/Cassette archiviert oder auf ei- 

ee ea ns? nem Matrixdrucker im DIN-A4- oder DIN-A5-Format ausgegeben wer- 

ee a. en den. Auf dem CPC 6128 hält der FRAKTAL GENERATOR 3D mehrere 

3140 ' >>>>> TOR RECHTS <<<<c [1382] Bilder im Speicher, zwischen denen beliebig gewechselt werden kann. 

En ne a I ... flexibel: Zahlreiche einstellbare Parameter ermöglichen eine indivi- 

ee N duelle Bildgestaltung: Beliebiger Blickwinkel horizontal/vertikal, vergrö- 

:DRAW 470,270:DRAW 510,274: PLOT 510,200:DR Berte Ausschnitte per Auswahlrahmen, minimale/maximale Rechentie- 

AW 470,200:PLOT 482,172,1 fe, Höhenfaktor, Glättungsfunktion, Darstellung der Fraktale als Berg- 

3160 rchts=1:RETURN [729] oder Talstruktur mit oder ohne ’Hidden Line’-Algorithmus, usw. 

3170 ' »>>>> TOR MITTE <c<<< [1315] 


3180 PLOT 290,200,1:DRAW 350,200:DRAW 350, [12851] 
260,0:DRAW 290,260:DRAW 290,200:DRAW 296,2 
04:DRAW 296,256:DRAW 344,256:DRAW 344,204: 
DRAW 350,200:PLOT 344,220:DRAW 296,220:PLO 
T 296,256:DRAW 290,260:PLOT 344,256:DRAW 3 


50,260 
3190 hceh=1:RETURN [649] 
3200 ' >>>>>» FENSTER LOESCHEN <<c<<< [1995] 


3210 WINDOW 8,33,3,17:PAPER 1:PEN O0:CLS:PL [2809] 
OT 112,366,0:DRAW 112,128:DRAW 640-112,128 


:RETURN 

3220 ' >>»»» VORSPANN <<<<c [1786] 
3230 mg$="MAZE -- GLIDER" [1552] 
3235 FOR w=1 TO 100:w$=w$+INKEY$:NEXT:w$=" [1769] 
3240 WINDOW 8,33,3,17:PAPER 1:CLS:PEN 0 [1547] 
3250 FOR t=7 TO 19 STEP 2 [1818] 


3260 LOCATE t,14:PRINT CHR$(243)CHR$(242) [2421] 
3270 LOCATE t,15:PRINT CHR$(241)CHR$(240) [2816] 
3280 NEXT [350) 
3290 FOR t=1 TO 12:LOCATE 1,15:PRINT"” 




















"5: 7625877 
NEXT 
3300 FOR t=7 TO 19 STEP 2 [1818] = 
3305 CALL &BB18 [389] Autor: Matthias Uphoff 
3310 SOUND 130,1000,150,15,1,,5 [1700] 
3320 FOR e=1i TO 4 [912] E R ” R . . 
3330 PEN 0:LOCATE t,2:PRINT expi$(e) [1887] Ein Meisterstück der Computergrafik, das in keiner Software- 
a a TO 100:NEXT a sammlung fehlen sollte — jetzt auch für den CPC, mit dem vol- 
NEX 350 ; R ion 
3360 LOCATE t,2:PEN 3:PRINT MID$(mg$,t-6,2 [2108] len Leistungsumfang der PC-Version! 
) 
3370 LOCATE t,3:PEN O:PRINT"%%"; [1528] 
3380 NEXT > [350] 
a a 59,- DM (unverbindliche Preisempfehlung) 
u = u zung 5 SSR Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 
Hutten" :mp$(5)="---START---- : CPC Inland: Assiand: 
3395 FOR q=1 TO 100:q$=q$+INKEY$:NEXT:g$=" [2530] Einzelpreis 59,- DM Einzelpreis 59,- DM 
$ Cassette zzgl. Versandkosten 3,- DM zzgl. Versandkosten 5,- DM 
3400 FOR t=1 TO 5:LOCATE 14-(LEN(mp$(t))/2 [3449] End 62,- DM Endpreis 64, DM 
),t+8:PEN 2:PRINT mp$(t):NEXT Best.-Nr. 210 > r 
3410 my=1 [379] 
3420 LOCATE 14-({LEN(mp$(my))/2),my+8:PEN 3 [3186] 
:PRINT mp$({my) 
3430 WHILE INKEY$="":WEND [1607] 
3440 LOCATE 14-(LEN{mp$(my))/2),my+8:PEN 2 [3590] ER = 
:PRINT mp$(my) 69,— le Preisempfehlung) r ME 
3450 IF INKEY(O)<>-1 AND my<>1 THEN my=my- [2295] CPC Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 
v Inland: Ausland: 
= Einzelpreis 69,- DM Einzelpreis 69,- DM 
£ Diskette zzgl. Versandkosten 3,- DM zzgl. Versandkosten 5,- DM 
Best.-Nr 211 Endpreis 72,- DM Endpreis 74,— DM 
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3460 IF INKEY(2)<>-1 AND my<>5 THEN my=my+ £1911] 4180 FOR t=210 TO 428 STEP 2 E27 
1 4190 PLOT t,380,3:DRAWR 0,-10 [1946] 
3470 IF INKEY(9)<>-1 THEN ON my GOTO 4870, [3705] 4191 SOUND 4,t*2,2,15 [1407] 
6000, 7000,8000,2040 4200 NEXT [350] 
3480 GOTO 3420 [509] 4210 RETURN = [555] 
3490 ' »>>>> NICHTS DA <<c<<c< [1719] 4220 ' >»>>» COMPUTER <£<c<< [1756] 
3500 If$=" He [4061] 4230 PAPER O:PEN 3:CLS [1430] 
re isn't anything to take... 4240 yt=1:t$="TERMINAL X ":GOSUB 4380:L0CA [3596] 
B TE 19,1:PRINT y 
3510 WINDOW SWAP 0,1 [1031] 4250 yt=2:t$="ENTER CODE, PLEASE":GOSUB 43 [3973] 
3520 PAPER 1:PEN O [871] 80 
3530 FOR t=1 TO 61 [809] 4260 FOR t=1 TO 100:a$=q$+INKEY$:NEXT:q$=" [1491] 
3540 LOCATE 7,24:PRINT MID$(1f$,t,28); [2700] = 
3550 NEXT [350] 4270 LOCATE 5,3:INPUT">",cd$ [1529] 
3560 WINDOW SWAP 1,0 [1024] | 4280 cd$=UPPER$(cd$) [983] 
3570 RETURN [555] | 4290 IF cd$<>code$(y) THEN 4350 [1637] 
SEBONE DEMDITTRLEE [690] 4300 yt=5:t$="CODE :":GOSUB 4380 [2661] 
3590 If$=" Yo [4455] | 4310 LOCATE 18,5:PRINT cde$(y) [1850] 
u can't take a computer... \ 4320 FOR w=1 TO 6000:NEXT [1322] 
i | 4330 GOSUB 3200 [953] 
3600 WINDOW SWAP 0,1 [1031] | 4340 GOTO 2120 [307] 
3610 PAPER 1:PEN O [871] | 4350 yt=5:t$="WRONG CODE. BYE!!!":GOSUB 43 [3545] 
3620 FOR t=1 TO 61 [809] 80 
3630 LOCATE 7,24:PRINT MID$(1f$,t,28); [2700] | 4360 GOSUB 3200 [953] 
3640 NEXT [350] | 4370 GOTO 2120 [307] 
3650 WINDOW SWAP 1,0 [1024] 4380 ' TELEXTEXT [127] 
3660 RETURN [555] 4390 FOR t=1 TO LEN(t$) [1423] 
3670 ' »»»»» ENERGIEKAPSEL <c<ccc [1115] | 4400 LOCATE 13-(LEN(t$)/2)+t,yt [1343] 
3680 LOCATE 13,8:PRINT" " [834] | 4410 PRINT MID$(t$,t,1); [1305] 
3690 LOCATE 13,9:PRINT" " [846] | 4420 SOUND 1,350,2,15:FOR q=1 TO 10:NEXT [1935] 
3695 GOSUB 9000 [1040] | 4430 NEXT [350] 
3700 energie=110:GOSUB 4170 [1159] 4440 RETURN [555] 
3710 raum(x,y)=10*XINT(raum(x,y)/10) [2637] | 4450 ' »>»»» PASSWOERTER <<c<c< [1308] 
3720 sc=sc+1:GOSUB 2540 [716] 4460 t$="":t$=SPACE$(28) [1195] 
3730 inhalt=0o [429] 4470 FOR t=1 TO 19 [799] 
3740 FOR w=1 TO 500:NEXT [861] 4480 IF code$(t)="""THEN 4500 [635] 
3750 RETURN [555] 4490 t$=t$+"X"+STR$LL)+":"+code$lt)+"-" [2385] 
3760 ' »>»>» KOMPASS AKTIVIERT <<<<c< [1287] 4500 NEXT [350] 
3770 LOCATE 13,8:PRINT" "“ [834] 4510 t$=t$+" " [899] 
3780 LOCATE 13,9:PRINT" " [846] 4520 WINDOW SWAP 1,0 [1024] 
3785 GOSUB 9000 [1040] 4530 FOR t=1 TO 200 [693] 
3790 If$=" [4100] 4540 LOCATE 7,24:PRINT MID$(t$,t,28); [2280] 
Compass activated... 4550 NEXT [350] 
” 4560 WINDOW SWAP O,1 [1031] 
3800 WINDOW SWAP 0,1 [1031] 4570 RETURN [555] 
3810 PAPER 1:PEN O [871] 4580 ' >>>>» MAINCOMPUTER <<<cc< [1498] 
3820 FOR t=1 TO 66 [812] 4590 GOSUB 3200 [953] 
3830 LOCATE 7,24:PRINT MID$(1f$,t,28); [2700] 4600 yt=1:t$="ENTERING THE MAIN-TERMINAL": [3471] 
3840 NEXT [350] GOSUB 4380 
3850 LOCATE 7,21:PRINT richtung$(ri); [1306] 4610 yt=2:t$="OF MAZE X-34-MI":GOSUB 4380 [1416] 
3860 WINDOW SWAP 1,0 [1024] | 4620 yt=4:t$="Please enter password.":GOSU [4629] 
3870 compass=1 [477] | B 4380 
3880 raum(x,y)=10*INT(raum(x,y)/10) [2637] | 4630 FOR t=1 TO 100:q9$=q$+INKEY$:NEXT:qa$=" [1491] 
3890 FOR w=1 TO 500:NEXT [861] 3 
3900 RETURN [555] | 4640 LOCATE 1,6: INPUT">",pw$ [1080] 
3910 ' »»»>> PASSWORDDISC <<ccc [1662] 4650 IF UPPER$(pw$)=password$ THEN 4690 [1655] 
3920 LOCATE 13,8:PRINT" " 834] ı 4660 CLS [91] 
3930 LOCATE 13,9:PRINT" " [846] | 4670 yt=2:t$="Wrong code. Try again!!":GOS [3316] 
3935 GOSUB 9000 [1040] uB 4380 
3940 1f$=" 4564] 4680 GOTO 4620 [557] 
Passworddisc taken (f9) ... 4690 CLS 91] 
ir 4700 yt=1:t$="Task completed.":GOSUB 4380: [6113] 
3950 WINDOW SWAP 0,1 [1031] yt=2:t$="You are a free man now...":GOSUB 
3960 PAPER 1:PEN O [871] 4380 
3970 FOR t=1 TO 66 [812] 4710 FOR t=1 TO 10000:NEXT:RUN [1341] 
3980 LOCATE 7,24:PRINT MID$(1f$,t,28); [2700] 4720 ' >»>>>»>» EXPLOSION <<<c<< [1958] 
3990 NEXT [350] | 4730 SOUND 130,1000,150,15,1,,5 1700] 
4000 WINDOW SWAP 1,0 [1024] | 4740 FOR t=1 TO 5 582] 
4010 pass=1 [554] 4750 LOCATE 13,8:PRINT expl$(t):FOR w=1 TO [2997] 
4020 raum(x,y)=10*INT(raum(x,y)/10) [2637] 250:NEXT 
4030 FOR w=1 TO 500:NEXT [861] 4760 NEXT:RETURN [940] 
4040 RETURN [555] 4770 ' »>>ENDE<<E [974] 
4050 ' »>»>» DIAMANT <cc<<c< [1378} | 4780 yt=10:t$=">>>>>>» GAME OVER <ccc<c<<" [2847] 
4060 sc=sc+5:GOSUB 2540 [1175] :GOSUB 4380 
4070 LOCATE 13,8:PRINT" " [834] 4790 FOR w=1 TO 2000:NEXT:GOSUB 3220:G0T0 [2319] 
4080 LOCATE 13,9:PRINT" " [846] | 2010 
4085 GOSUB 9000 [1040] 4800 ' >>HAHAHA(C [812] 
4090 raum(x,y)=10*INT(raum(x,y)/10) [2637] 4801 IF inhalt<>O THEN raum(x,y)=INT(raum( [3896] 
4100 inhalt=o [429] x,y)/10)*10:inhalt=0:GOSUB 4720:RETURN 
4110 FOR w=i1 TO 500:NEXT [861] 4810 ıf$=" Ha [6641] 
4120 RETURN [555] ‚ha,ha...you've shot the wall. The tunnel 
4130 ' »>»»» ENERGIEANZEIGE <c<e<c< [838] | breaks down and you are DEAD.... 
4140 PLOT 210+(energie*2),380,1:DRAWR 0,-ı [2472] 2 
[e) 4820 WINDOW SWAP 0,1 [1031] 
4150 IF energie=0 THEN 4770 [1294] 4830 PAPER 1:PEN O [871] 
4160 RETURN [555] 4840 FOR t=1 TO 110:LOCATE 7,24:PRINT MID$ [2855] 
4170 ' »>>»»» ENERGIE VOLL <<cce< [1140] (1f$,t,28);:NEXT 
4175 FOR wt=1 TO 100:NEXT [1009] 4850 WINDOW SWAP 1,0 [1024] 
> 
Listing Maze-Glider Listig Maze-Glider 
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DT Programm | 














4860 GOTO 4770 [558] | \ \ A I v 
4870 ' >>>>> JOYSTICK-KEYBOARD <<<ce [2151] = 2 g 
4880 IF mp$(1)="--KEYBOARD--" THEN mp$(1)= [5041] - Das ist die Software zur PC-International - 
"--JOYSTICK--" ELSE mp$(1)="--KEYBOARD--" 
4890 GOTO 3480 [481] -Jeden Monat neu- 
6000 ' [117] 
7000 ' f117] DATABOX: 
Bo [509] i — mehr als der übliche — soweit die Programme nicht 
9000 ' >>»>»%»> SOUNDEFFEKT <<c<c<c< [1252 R ee Ri R 
9010 SOUND 131,100,150,15,1:RETURN 1625] Softiwareservice Bestandteil einer Serie sind, 
befinden sich alle Program- 
s € = Is ‚ready to run’ auf der 
— bringtergänzend sämt- nn . y 
liche Listings der jeweili- ä 
gen Zeitschrift und alle 
Programmbeispiele auf 
f 3°:Dis- EN 
Sa Bee erscheint jeden Monat und 
1000 | KÄKKKEKKKEKEKREL [595] E trägt das Titelbild des gleich- 
we En zeitig erscheinenden Heftes. 
ver - 1 Br 
1030 | KRÄRKKKEKKKKKEKEX [595] = Programme sind, SS 
1040 MODE 1:LOCATE 1,12:PRINT"Bitte den Da [5633] weit systembedingt 
tentraeger einlegen !!! möglich, auf allen drei Ä 
a gs ER Be CPC-Modellen lauffa- — der Datenträger zum PC Inter- 
1060 SYMBOL 255,60,66,133,137,129,129,66,6 [2083] hig. Einzelheiten ent- national enthält außerdem je- 
0 nehmen Sie bitte der desmal ein zusätzliches Bo- 
1070 SYMBOL 254,60,66,129,129,141,131,66,6 [2234] nebenstehenden Auf- nusprogramm, das nicht im 


° 


stellung. 


Heft abgedruckt ist. 


1080 MODE 1:INK 0,0:BORDER 0:INK 1,13:INK [3940] 
2,10:INK 3,26:PAPER 2:CLS 





1090 FOR x=64 TO 640-64 STEP 16 [711] 

ee En x,399,0:DRAW 320,250:DRAW x,96:D [2223] Für alle CPCs als Kassette und | 
1110 NEXT [350] N ie 
1120 FOR y=96 TO 400 STEP ı6 [1464] reterkänen. > Br 
1130 PLOT 64,y:DRAW 320,250:DRAW 640-64,y [2374] 3 

ea N a Inhalt der Databox zu Heft 1/89: 
1150 FOR y=1 TO 399 STeP 2 [1731] ne Hr 
1160 PLOT O0,y:DRAW 64, y [551] ee M 

1170 PLOT 640-64,y:DRAW 640,y [304] Superlist o 

1180 NEXT [350] Assembler-Ecke 

1190 FOR x=112 TO 640-112 STEP 2 [1037] Der Diskette aufs Byte geschaut 

1200 PLOT x,400-32,1:DRAW x,128 [824] KIELER: nun 

1210 NEXT [350] Checksummer 664 

1220 PLOT 0,96,0:DRAW 640,96 [sı1] Checksummer 6128 

1230 PLOT 112,128,0:DRAW 112,400-32:DRAW 6 [4797] 3D-Mini-Painter 
40-112,400-32:DRAW 640-112,128:DRAW 112,12 ei et 

8 eu 

1240 PAPER 0:PEN 3:LOCATE 13,2:PRINT STRIN [2930] ae 
G$(16,233):PEN O:PAPER 1 1 KB-Hypertext 

1250 LOCATE 7,24:PRINT SPACE$(28) [1912] un [ 

1260 LOCATE 7,21:PRINT " ":LOCATE 32,21: [1581] i 

PRINT" & Bonusprogramm: 

1270 PEN 0:LOCATE 11,21:PRINT CHR$(255):L0 [2682] Labygen 


CATE 11,22:PRINT CHR$(254) % 
1280 LOCATE 30,21:PRINT CHR$(254):LOCATE 3 [2240] ausgedruckt (NLQ 401 
0,22:PRINT CHR$(255) Es befinden sich noch Info-Files (INF) auf der 
1290 PLOT 94,32,0:DRAW 640-96,32:DRAW 640- [3726] DARBOR. 

96,14:DRAW 94,14:DRAW 94,32 

1300 PLOT 94,80:DRAWR 3*%16+2,0:DRAWR 0,-18 [3158] 
:DRAWR -3%*%16-2,0:DRAW 94,80 
1310 PLOT 494,80:DRAWR 3*16+2,0:DRAWR O,-ı1 [3372] 
8:DRAWR -3%16-2,0:DRAW 494,80 


Computer-Labyrinthe erstellt und 





Preisvorteil durch Databox-Abo: 
Unser beliebter Databox-Service kann 




































el : t 
1320 yo=230 [571] © selbstverständlich auch im Abonnemen 
| bezogen werden. Dadurch sparen Sie 

4u30 PLOT 1000,1000,1:TAG:MOVE 250,300:PRI 3800] Mühe und haben außerdem noch einen 
NT"MAZE-GLIDER" ; : TAGOFF © Preisvorteil gegenüber dem Einzelbezug. 
1340 FOR y=300 TO 300-14 STEP-2 2066] 
1350 FOR x=250 TO 250+16%*10.8 STEP 2 [1635] c 3 R 
1360 IF TEST(x,y)=1 THEN PLOT x-20,y-yo,0: [3899] Einzelbezugspreise für Databox: Das’Dalsbox-Abokostet, 
DRAWR 0,-2:PLOT x-18,y-yo,3:DRAWR 0,-2 3“Diskette Als Kassette für 1/2 Jahr 
1370 NEXT [350] | (& Lieferungen): 3 
1380 yo=yo+2 [595] m Inland und West-Berlin.. 
1390 NEXT [350] Im europäischen Ausland. 
1400 PLOT 160,78,0:DRAW 160,48 [1379] m außereuropäischen Aus! 
1410 PLOT 464,78:DRAW 464,48 [1195] Als Diskette für 1/2 Jahr (6 Lieferungen): 
0 [628] m Inland und West-Berlin... 150,— DM 
1430 LOCATE 10,3: PRINT"MAZE-GLIDER is load [4037] m europäischen Ausland... 
109 Kassette m außereuropäischen Aus 
1440 LOCATE 15,8:PRINT STRING$(15,32); [1249] - j 
1450 LOCATE 15,7:PRINT STRING$(15,32); [1815] Als Kassette für 1 Jahr (12 Li 
1460 FOR x=140 TO 494 STEP 2 [1406] m Inland und West-Berlin... 
1470 FOR y=367 TO 351 STEP -2 [1507] m europäischen Ausland.. 
1480 IF TEST(x,y)=0O THEN GOSUB 1510 [858] m außereuropäischen Aus! 
1490 NEXT:yo=SIN + 5 & S n 
1500 GOTO INN nn Als Diskette für 1 Jahr (12 Lieferungen): 

z -Berli — DM 
1510 PLOT x,y-100-yo,3:PLOTR 0,-2,0 [1305] Znlungswelse: ee 300, 
1520 RETURN [555] Am einfachsten per Vorkasse (Ver- eher NE 
1530 LOCATE 9,3:PRINT STRING$(24,32); [2069] rechnungsscheck) oder als Nach- 
1540 SAVE"!SCREEN",b,&C000,&4000 [1431] nahme zuzüglich der Nachnahme- 


gebühr (in das Ausland ist Nachnah- Bitte benutzen Sie für Ihre Bestellung 
me nicht möglich). die Abo-Karte. 











Programm 








SUPER LIST 
LOCATE 








Zeilensprung 
SUPERLIST - Listen mit Komfort 


Es gibt Momente im Leben eines Computerbesitzers, da wünscht er sich zu- 
rück in die technische Steinzeit, ohne von einem ’SYNTAX ERROR’ oder 
ähnlich hämischen Kommentaren aus dem gerade ablaufenden Programm 
gerissen zu werden. Dabei sind Fehlermeldungen gerade dazu da, etwaige 
Fehler im Ablauf des Programmes aufzuzeigen und dem Programmierer 
eine Chance zu geben, Verbesserungen gleich bei der Entstehung an den 
Mann, oder besser, an den Prozessor zu bringen. Was jetzt noch fehlt, sind 
die passenden Hilfsprogramme, die die eigentlichen Hauptprogramme 
durchschaubar machen. Hier ist so ein ’Röntgenprogramm’: SUPERLIST. 


SUPERLIST ist ein in Maschinenspra- 
che geschriebenes Programm zum 
komfortablen Listen von BASIC-Pro- 
grammen für alle CPCs. SUPERLIST 
eignet sich besonders zur Untersu- 
chung von fremden BASIC-Program- 
men, hilft aber auch in eigenen Pro- 
grammen jene BASIC-Zeilen zu fin- 
den, in denen ein bestimmter Befehl 
vorkommt. Zeigen wir doch gleich ein 
kleines Beispiel auf: 

Stellen Sie sich vor, Sie haben ein BA- 
SIC-Programm geschrieben, welches 
auf Ihre Computerausstattung gemünzt 
ist (Beispiel Farbmonitor). Nun möch- 
te jemand aus Ihrem Bekanntenkreis 
ebenfalls dieses Programm benutzen, 
hat aber nur einen Grünmonitor. Wenn 
Sie jetzt in Ihrem Programm die Farben 
ändern wollen, so müssen Sie sich erst 
durch einen Haufen Programmzeilen 
quälen und jede Zeile nach INK,PA- 
PER oder PEN durchforsten. Bei lan- 
gen BASIC-Programmen kommt dann 
die Gefahr hinzu, daß man hier leicht 
einen Befehl übersieht — und schon be- 
ginnt man wieder von vorne, bis zu 
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dem Zeitpunkt, an dem der Geduldsfa- 
den durchtrennt wird und Programmie- 
rer und Computer durch den Dreifin- 
gergriff scheidet. 


Wer sucht, der findet 


Mit SUPERLIST, welches vollkom- 
men menügesteuert zu bedienen ist, 
wird es zum Kinderspiel, alle BASIC- 





Der Menüteil von 
SUPERLIST. Der 
angewählte BASIC- 
Befehl dient als 
Suchkriterium. 


Zeilen aufzulisten, in denen der ge- 
suchte Befehl zu finden ist. Durch 
Druck auf die kleine ENTER-Taste 
wird die Maschinencoderoutine mittels 
CALL &9DO0 aktiv, und es erscheint 
ein Menü mit den 43 häufigsten 
BASIC-Befehlen. Mit den Cursorta- 
sten wählen Sie nun das gewünschte 
Befehlswort an, welches ab sofort in- 
vers dargestellt wird. Durch Druck auf 
die Taste <COPY> wird dann der 
Suchmechanismus aktiviert und jede 
BASIC-Zeile mit dem gesuchten Be- 
fehl auf dem Bildschirm ausgegeben. 
Dabei kann der Listvorgang wie ge- 
wohnt jederzeit durch Drücken der 
ESC-Taste abgebrochen werden. 
SUPERLIST hilft Ihnen auch, Fremd- 
programme besser zu verstehen und 
auf eventuell Fehler untersuchen zu 
können. Durch das Auflisten aller im 
Programm befindlichen REM-Zeilen 
kann Ihnen bei der Suche weiterhelfen. 
Durch die Remarks kann man rasch die 
Lage von bestimmten Passagen finden, 
die Sie sich genauer besehen oder än- 
dern wollen. 

Dies waren nur zwei Beispiele für die 
Anwendung von SUPERLIST, dem in- 
teressiertten Anwender stehen aber 
noch eine Vielzahl von Möglichkeiten 
für die Nutzung dieses Programmes 
offen. 


Handhabung des Programmes 


Nachdem Sie den Teil des Program- 
mes, der in BASIC programmiert wur- 
de und den Objectcode gespeichert ha- 
ben, starten Sie das BASIC-Pro- 
gramm. Nach der Eingabe Ihres Rech- 
nertyps wird der Maschinencode Ihrem 
Computer angepaßt. Das BASIC-Pro- 
gramm wird automatisch gelöscht, und 
nun können Sie durch Druck auf die 
kleine ENTER-Taste den Maschinen- 
code aktivieren. 


(Roland Schäffer/jb) 
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10 REM 
xxx 
20 REM EERERTE 
xkKx 
30 REM Bere 
xx 
40 RE Sue KrrKr 
M RL 
50 Iıs 
60 2 written b 2 BD 270 
70 REM A-5020 y SCHAEF [692 POKE 
Sal FER ] 08 &9F6 
= GEM arart zburg Roland 2, Senne Se ne a 
9: KIKKKx 2784] 2 ‚&64: 8,& 
* 9 :G ‚&E8: 
100 R KerKerrr [1550 0 REM POK 0TO 350 POKE &9D 
EM xx* 1 30 ES { 
nn we [272] se nn co. 
120 sY RUNG [150 ‚&2F:POK „aE3:PO 28 
M8o 4] 310 ' E &9F KE 88 1117 
FTER 3 L AFTE {117 19,&64 F78,& } 
2 R 256: ] 350 2 ‚&E3:PO [10 
130 K 6:MEMO [23 MODE 2: KE 89 71] 
EY 4 RY &9 97} laden“ 2:a$="Bi D [40 
140 L 139, "ca CFF:SYM [117 en": b$=" Bitte 42] 
150 . slist = &ID00"+C BOL A re ENTER-TAST "danach"sc$e start m 
160 as-cHr er en : SLLOCATE au ee en nn 
(24) SCHR$(24)+" S [1591] "LScaTE s1-1En(n81/2,2:PRinT o8 ne 16107] 
170 b$="c p VPERLI [s11] SPRINT ebenen ae 
664 © 46 ee [506 B > =. 
u we 4 +CHR ] 
t$=" - pP © . ="c p 
190 LO BITTER 6128 € TAI 
CAT ECHNE == 56] 
a1-LE E 21- RTYP 
N(b$ LEN( EING 
2.11: )/2,8: a$)/2,2: EBEN" 
‚L1:PRINT c@ en 100 'DA 
su0 C$: LOCATE ee man nn ra a 
LOCAT a 7509] 120° r sts 
210°’ E 21-LEN(T$ a 130 "Ladeadres T.BIN 
220 R 372,2 : NT Laenge: se: .&9 
EM TA ‚22:PRI Bo ge: DOO [152 
: s NT st 0] 
Se TATURABFRAG = 150 ° artadresse: een [117] 
240 CALL acso E sn 160. MEMOR : &0000 [375] 
SaLL esos;cauL aasosı: ni a Si 
2 = 7 =2 
rt A 190 an = ee a 
N 270 ELSE [4562] KE 3+i er er x Es [1147] 
200 ’ “gt f12 
NEXT 5 a$): 06] 
210 3 :sum=s [10 
READ um+a:PO 44] 
a$:a=V [231 
ALL"&" a 
+a$) 
[370] 
[883] 


IF IN 
KEY(5 
7)=0 THEN 300 E 
LSE 24 
o 
220 
IF a< 
>sum T 
HEN 
BIN DATABE 
HLER ji 
inDZ n 
3034] 


250 ' 
260 RE 
M POK 
ES EU 
ER CP 
C 664 
De 
967] Festes 
| zei: 
| 230 :END 
| zei= S 
2 z 
40 NEXT i ei+1o 
[393] 
[375] 
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1140 DATA 28,08,FE,00,28,04,23,23,01A0 [1136] 
250 SAVE"SLIST .BIN",B,&9000,&587,&0 [2508] 1150 DATA F1,C9,F1,0D,E1,C9,4B,A0,061D [1653] 
260 ' 112] 1160 DATA 56,A0,61,A0,6C,A0,77,A0,041A 1764] 
270 DATA AF,32,86,A2,CD,00,B9,CD,045C [2537] 1170 DATA 82,A0,80,A0,98,A0O,A3,AO,O04CA [1165] 
280 DATA 32,C1,CD,4E,BB,CD,FF,BB,0550 1419] 1180 DATA AE,AO,B9IS,AO,C4A,AO,CF,AO,057A [607] 
290 DATA 3E,02,CD,0E,BC,21,02,1F,0219 2324] 1190 DATA DA,AO,E5,AO,FO,AO,FB,AO,062A [1833] 
300 DATA CD, 75,B8,21,2E,A2,CD,C9,0484 [2021] 1200 DATA 06,Al,11,Al,1C,A1,27,Al1,02DE [1807] 
310 DATA 9D,21,03,25,CD,75,8B,21,0304 [1494] 1210 DATA 32,A1,30,A1l,48,A1,53,A1,038E [1466] 
320 DATA 44,A2,CD,C9,9D,21,04,11,034F s28] 1220 DATA 5E,A1,69,A1,74,Al,7F,A1,043E [1736] 
330 DATA CD,75,BB,21,4E,A2,CD,C9,04A4 [1386] 1230 DATA 8A,A1,95,A1,AO,A1l,AB,Al,04EE [1291] 
340 DATA 90,11,C6,9F,D0D,21,D3,9D,0481 1103] 1240 DATA B6,A1,C1,Al,CC,A1,D7,A1,059E 1330] 
350 DATA FD,21,D07,9D,CD,BO,9D,FD,05A9 2164] 1250 DATA E2,Al,ED,A1l,F8,A1,03,A2,054F 1118] 
360 DATA 21,D7,9D,DD,23,CD,B0,9D,O4AF 1247] 1260 DATA OE,A2,19,A2,24,A2,00,82,02B3 1906] 
370 DATA FD,21,D7,90,0D,23,CD,B0,050F [1699] 1270 DATA 83,87,88,89,8A,8C,94,93,0458 [1498] 
380 DATA 9D,FD,21,D7,9D0,DD,23,CD,O4FcC 955] 1280 DATA 95,98,9E,9F,AO,A1,A2,A3,04FO0 [1096] 
390 DATA B0,9D,21,08,06,CD,75,88,0379 [1066] 1290 DATA AB,AQ,AA,AB,AD.AE,AF.B6.0566 [3058] 
400 DATA 3E,96,CD,5A,B8,CD,96,9D,04B6 [1467] 1300 DATA B7,88,BA,BB,BC,BD,BE,BF,05DA [2196] 
410 DATA 3E,9C,CD,5A,BB,21,16,06,02F9 [2101] 1310 DATA C3,C5,C7,C9,CB,CC,DO0,D1,0650 [1685] 
420 DATA CD, 75,BB,3E,93,CD,5A,BB,04BO [1313 1320 DATA D6,D8,18,20,42,41,53,49,0305 [1514] 
430 DATA CD,96,9D,3E,99,CD,5A,BB,0489 [1547] 1330 DATA 43,20,20,20,00,18,20,42,011D [1497] 
440 DATA 21,09,06,CD,A0,9D,21,09,0264 1737] 1340 DATA 4F,52,44,45,52,20,20,00,01BC [2317 
450 DATA 4A,CD,A0,9D,18,4C,3E,9A,0390 [1389 1350 DATA 18,20,43,41,4C,4C.20.20.0194 [1551 
460 DATA 06,43,CD,5A,BB,10,FB,C9,03FF [1602 1360 DATA 20,20,00,18,20,43,4C,47,014E [1450] 
470 DATA 06,0D,E5,CD,75,BB,3E,95,03C8 1529 1370 DATA 20,20,20,20.20.00.18.20.00D8 [863] 
480 DATA CD,5A,BB,E1,2C,10,F3,C9,04BB [1085 1380 DATA 43,4C,4F,53,45,49,4E,20,022D [2292] 
490 DATA 06,08,00,66,00,FD,6E,00,02BF [858] 1390 DATA 00,18,20,43,4C,4F,53,45,01AE [1119] 
500 DATA CD,75,BB,1A,6F,13,1A,67,031A [2028 1400 DATA 4F,55,54,00,18,20,43,4C,01BF [2043] 
510 DATA 13,CD,C9,90,FD,23,10,EA,0460 [1996 1410 DATA 53,20,20,20,20,20,00,18,0108B [1490] 
520 DATA C9,7E,23,FE,00,C4,5A,BB,0441 1334 1420 DATA 20,44,41,54,41,20,20,20,0i9A [2053] 
530 DATA 20,F7,C9,08,1A,2D,3F,0A,0278 [1800] 1430 DATA 20,00,18,20,44,52,41,57,0186 [941] 
540 DATA 08,0C,00,0E,0F,10,11,12,0074 [1871 1440 DATA 20,20,20,20,00,18,20,44,00FC [1578] 
550 DATA 13,14,11,C6,9F,DD,21,D3,036E [2101 1450 DATA 49,40,20,20.20.20.20.00.0136 [1471] 
560 DATA 9D,FD,21,D7,9D,CD,80,9E,051A 860] 1460 DATA 18,20.44,52.41.57.52.20.0108 [1355] 
570 DATA 28,CD,C9,9D,3E,18,CD,5A,030DB (ao 1470 DATA 20,20,00,18,20,45,4E,44,014F [1712] 
580 DATA BB,CD,93,9E,CD,06,BB,FE,0545 [1511 1480 DATA 20.20.20.20.20.00. 18.20.0008 [863] 
590 DATA F1,28,13,FE,F0,28,23,FE,0463 [1837] 1490 DATA 46,4F,52,20,20,20,20,20,0187 [1802] 
600 DATA F3,28,33,FE,F2,28,48,FE,04AC [1732] 1500 DATA 00,18,20.47.4F.53.55.42.0188 [2404] 
610 DATA EO,CA,99,9E,18,E3,21,7E,0478 Del 1510 DATA 20,20,20,00,18,20,47,4F,012E [1352] 
620 DATA 9E,7E,FE,14,28,57,CD,80,03FA [2269] 1520 DATA 54.4F,20.20,20.20.00.18.0138 [1987] 
630 DATA 9E,CD,C9,9D,FD,23,13,13,0417 [836] 1530 DATA 20,49,46,20,20,20,20,20,014F [1616] 
640 DATA 18,C3,21,7E,9E,7E,FE,OA,O39E [865] 1540 DATA 20,00,18,20,49,4E,48,20,015A [1572] 
650 DATA 28,43,C0,80,9E,C0,C9,90,0489 [1240] 1550 DATA 20,20,20,20,00,18,20,49,0101 [1370] 
660 DATA FD,2B,1B,1B,18,AF,21,7E,02C4 802] 1560 DATA 4E,50,55,54,20,20,20,00,01A7 [2328] 
670 DATA 9E,23,7E,FE,3F,28,2E,CD,O39F [1641] 1570 DATA 18,20,4C,4F,41,44,20,20,0198 [1952] 
680 DATA 80,9E,CD,C9,9D,21,16,00,0388 [1717] 1580 DATA 20,20,00,18,20,4C,4F,43,0156 [1850] 
690 DATA 19,E5,D1,DD,23,18,96,21,039E [1141] 1590 DATA 41.54,45.20.20.00.18.20.0152 [1273] 
700 DATA T7E,9E,23,7E,FE,08,28,15,0300 [1326] 1600 DATA 40,45,4D,4F,52,59,20,20,0219 [2302] 
710 DATA CD,80,9E,CD,C9,90,D5,E1,0504 1022 1610 DATA 00,18,20,40,45,52,47,45,01A8 [1907] 
720 DATA 11,16,00,B7,ED,52,E5,D1,0303 [2059] 1620 DATA 20,20,20,00,18,20,4D,4F,0134 [1415] 
730 DATA DD,28B,C3,ED,90,CD,80,9E,0540 [1764] 1630 DATA 44,45,20,20,20,20,00,18,0121 [1483] 
740 DATA CD,C9,90,C3,ED,90,00,00,0480 [1712] 1640 DATA 20,40,4F,56.45.20.20.20.0187 [1440] 
750 DATA DD,66,00,FD0,6E,00,22,7E,034E 16781 1650 DATA 20,00,18,20,40,4F,56,45,018F [1089] 
760 DATA 9E,CD,75,BB,1A,6F,13,1A,0351 [1136] 1660 DATA 52,20,20,20,00,18,20,4F ,0139 [870] 
770 DATA 67,1B,C9,CD,09,8B,38,F8,040F „oc 1670 DATA 50,45,4E,49,4E,20,20,00,01BA [1527] 
780 DATA C9,DD,21,03,90,FD0,21,07,052C [1138] 1680 DATA 18.20.4F,50.45.4E.4F.55.020E [1465] 
790 DATA 9D,21,1E,AO,E0,58,7E,9E,03E0 L8oB1 | 1690 DATA 54,20,00,18,20,4F,52,49,0196 [1537] 
800 DATA 01,08,00,D0D,7E,00,8A,28,0249 [2271] 1700 DATA 47,49,4E,20,20,00,18,20,0156 [1964] 
810 DATA 05,0D,23,09,18,F5,FD,7E,0396 [1291] 1710 DATA 50,41,50.45.52.20.20.20.0108 [1378] 
820 DATA 00,88,28,05,23,F0,23,18,0243 Een | 1720 DATA 00,18,20,50,45,4E,20,20,0158 [1768] 
830 DATA F5,7E,32,7F,A2,3E,02,CD,03D3 anaon | 1730 DATA 20,20,20,00,18,20,50,4C,0134 [1053] 
840 DATA OE,BC,3A,7F,A2,FE,00,C8,03EB [2306] | 1740 DATA 4F,54,20,20,20,20,00,18,0138 [1424] 
850 DATA FE,C5,28,06,FE,8C,28,1B,03BE [1760] | 1750 DATA 20,50,4C,4F,54,52,20,20,01F1 [1724] 
860 DATA 18,43,CD,18,9F,CD,35,9F,0380 [977] | 1760. DATA 20.00.18.20.50 Ar 40.45.0187 [1434] 
870 DATA 7E,FE,C5,28,09,FE,01,28,0399 [1653] | 1770 DATA 20,20,20,20,00,18,20,50,0108 [1669] 
880 DATA 05,CD,7B,9F,18,EF,CD,69,0429 1737) | 1780 DATA 52,49,4E,54,20,20,20,00,019D [1309] 
890 DATA 9F,18,F6,CD,18,9F,CD,35,0433 [1285] | 1790 DATA 18,20,52,45,41,44,20,20,0194 [1315] 
900 DATA 9F,7E,FE,8C,28,05,C0,78,041C [1601] | 1800 DATA 20,20,00,18,20,52,45,40,015C [1558] 
910 DATA 9F,18,F3,CD,69,9F,18,F6,048D sel 1810 DATA 20,20,20,20,20,00,18,20,00D8 [863] 
920 DATA CD,84,9F,EA,13,9F,CD,7B,04D4 [1158] 1820 DATA 52.45.53.54.4F.52.45.20.0244 [1214] 
930 DATA 9F,18,0D,C0,69,9F,18,F6,03A7 [2296] 1830 DATA 00,18.20,52,45.54.55.52.01CA [2265] 
940 DATA 2A,81,AE,23,C9,CD,18,9F,03C9 E23 1840 DATA 4E,20,20,00,18,20,53,41,015A [1772] 
950 DATA CD,35,9F,3A,7F,A2,BE,28,03E2 2193] 1850 DATA 56,45,20,20,20,20.00,18,0133 [2023] 
960 DATA 07,18,DD,CD,7B,9F,18,F0,03E8 [sıı] 1860 DATA 20.53.4F 55. 4E.44.20.20.01E8 [1549] 
970 DATA CD,69,9F,18,F6,22,84,A2,0428 [1134] 1870 DATA 20,00,18,20,54,41,47,20,0154 1043 
980 DATA 4E,23,46,E0,43,80,A2,78,0381 1839] 1880 DATA 20.20,20.20,.00.18.20.54.010C [1418 
990 DATA B1,28,0A,23,5E,23,56,ED,02CA 1760] 1890 DATA 41,47.4F,.46.48.20.20.00.01A3 [1752] 
1000 DATA 53,82,A2,23,C9,3A,86,A2,03C5 [967] 1900 DATA 18,20,57,48,49,4C,45,20,010D1 1811 
1010 DATA FE,FF,28,0F,0D,E1,01,FF,04F2 [1371] 1910 DATA 20,20,00,18,20,57,49,4E,0166 [1750] 
1020 DATA ER,II,EF)FE,CD,00,B9,C3, 0557 2199] 1920 DATA 44,4F ,57,20,20,00,18,20,0162 2202 
1030 DATA 0D,E1,C9,E1,D0D,E1,DD,E1,0614 1417] | 1930 DATA 53,20,55,20,50,20,45,20,01BD 1355] 
1040 DATA C9,3E,FF,32,86,A2,ED,48,0498 1702] | 1940 DATA 52,20,4C,20,49,20,53,20,01BA [1572] 
1050 DATA 82,A2,C5,D1,CD,00,89,CD,050D 1453] | 1950 DATA 54,20,18,00,18,20,28,20,010C 1641] 
1060 DATA 0D,E1,C9,2A,84,A2,ED,48,043F [1289] 1960 DATA 43,20,29,20,18,00,18,20,00Fc [1070] 
1070 DATA 80,A2,09,C9,2A,84,A2,23,0367 [1608] 1970 DATA 77,72,69,74.74,65,6E.20.032D [1559 
1080 DATA 23,23,23,ED,48,80,A2,08,02cE [1522] 1980 DATA 62,79,20,53,63,68,61,65,02DF 1227 
1090 DATA 08,08,08,E0,81,CC,98,9F ,03C5 [1628] 1990 DATA 66,66,65,72,20,52,6F,6C,02Fo [1634] 
1100 DATA EO,18,F8,F5,7E,FE,20,28,04A9 1302 2000 DATA 61,6E,64,20,20,56,49,49,0258 [1400] 
1110 DATA OE,FE,19,38,0A,FE,23,28,0250 [950] 2010 DATA 49,2F,38,38,20,20,56,2E,01lAC 1492] 
1120 DATA 06,FE,22,28,02,F1,C9,2B,0335 1292 2020 DATA 20,31,2C,30,20,18,00,00,00E5 [1383 
1130 DATA 2B,7E,FE,20,28,0C,FE,01,02FA [1302 2030 DATA 00,00,00,00,00,00,00,00,0000 1003 

Listing Zeilensprung | Listing Zeilensprung 
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Peter Pan 


Hersteller: Coktel Vision 
Vertrieb: Fachhandel 
Steuerung: Joystick, Tastatur 
Monitor: Farbe/grün 

Preis: ca. DM 50, — 


CPC 464 Kl CPC 664 Kl CPC 6128 X 


Peter Pans Abenteuer 
im Märchenland 


Wer kennt sie nicht, die Geschichte 
von Sir James Barrie und seinem klei- 
nen Elfen Peter Pan, der in dem großen 
Haus von Wendy, Michael und John 
seinen Schatten sucht? Dieses Pro- 
gramm soll nun auch den Kindern im 
Computerzeitalter die Abenteuer des 
Peter Pan übermitteln. Es ist speziell 
für Kinder zwischen vier und acht Jah- 
ren entwickelt worden, und soll die Be- 
obachtungsfähigkeiten beim Absuchen 
des Bildschirmes in fünf verschiedenen 
Geschichten weiterentwickeln. 


Peter ist dazu aufgefordert, die kleine 
Tochter des Indianerhäuptlings, die 
von den bösen Piraten gefangengehal- 
ten wird, zu befreien. Hier soll das 
Kind all die kleinen Federn aufsam- 
meln, die das Indianermädchen fallen- 
gelassen hat. Dabei muß man die Pira- 
ten im Wasser meiden. 





Ein Spiel für Kinder 
im Alter von vier bis 
acht Jahren gab es 
bisher noch nicht. 
Peter Pan soll nun 
diese Lücke 
schließen. 








In einer anderen Geschichte soll Peter 
eine Lagune erforschen, die von bösen 
Sirenen besetzt ist. Die Sirenen verhe- 
xen Peter Pan, und er muß jede von Ih- 
nen wiederfinden, um Wendy zu be- 
freien. 


In Wendys Haus muß Peter einen Blu- 
menstrauß zusammenstellen, aber dar- 
aufachten, daß ihm die Piraten nicht zu 
nahe kommen. 


Dann muß Peter aber doch gegen den 
Piratenkapitän Crochet kämpfen, um 
seinen Freund zu befreien. 

Dies sind nur ein paar Auszüge aus den 
Geschichten, die auf dieser Diskette 
vorhanden sind. 

Grafisch sind die Bilder sehr gut gelun- 
gen, was ein wichtiger Punkt bei einem 
Lernspiel für Kinder ist. 


Fazit 





Die Zeiten der Märchentanten und Ge- 
schichtenerzähler scheinen vorbei: Der 
Computer erobert auch hier seinen 
Platz. 


Wohl und Leid eines 
Fußballvereins hängt 
von Ihren Entschei- 
dungen ab! Und vom 
Sponsor bis zur Spiel- 
taktik Ihres Vereins 
müssen Sie sich so 


mern. 


ziemlich um alles küm- 


Die Frage ist, ob Kreativität und Fanta- 
sie der Kinder tatsächlich auf diese 
Weise entwickelt werden. Die pädago- 
gische Problematik des Fernsehens 
wird seit langem diskutiert. Es scheint, 
als komme hier eine neue auf uns zu. 


Spielidee Bedienungs- ok: 


nun: Doku- Grafik Sound Preis/ 
freundlichkeit mentation 


Leistung 
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Football Manager Il 


Hersteller: Addictive 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 

Preis: DM 47,90 


CPC 464 X CPC 664 Kl CPC 6128 &l 


Rund ums runde Leder 





Zwei Jahre ist es nun her, daß Kevin 
Toms zum ersten Mal sein Spiel ’Fuß- 
ball Manager’ vorstellte. Aufgrund des 
gut durchdachten Spielgeschehens und 
der Fußballbegeisterung vieler Com- 
puterbesitzer wurde das Programm ein 
echter Bestseller, von dem es ge- 
schwind Adaptionen für jeden gängi- 
gen Computertyp gab. 

Nun gibt es einen zweiten Teil von 
Fußball Manager. Eigentlich ist das 
Spiel an sich keine Fortsetzung, wie 
man es von einem zweiten Teil erwar- 
ten würde; vielmehr handelt es sich 
hier um einen erweiterten, mit zusätzli- 
chen Details versehenen und an den 
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derzeitigen Programmierstandard an- 
gepaßten Footballmanager. 


Alles neu macht der Mai 


Zu Beginn des Spiels wird der Spieler 
aufgefordert, sich einen Fußballclub, 
den er dann managen wird, auszusu- 
chen. Leider kann der Spieler hier nur 
unter tatsächlich existierenden engli- 
schen Clubs wählen. Eine Option, ei- 
gene Clubs zu kreieren ist nicht vor- 
handen. 


Aber nicht nur Spieler werden benö- 
tigt, auch Kapital wird gebraucht. 


Sponsoren sind hier sehr hilfreich, und 
der Spieler muß sich für einen potenten 
Partner entscheiden. 


Sind auf diese Art und Weise die Vor- 
aussetzungen für eine Saison in der 
Liga geschaffen, geht es los. Nach ei- 
ner zufällig ermittelten Paarung trifft 
Ihre EIf auf einen anderen Club der 
Liga. Nun übernehmen Sie auch noch 
die Aufgaben eines Trainers, Sie müs- 
sen nämlich die Aufstellung Ihrer EIf 
auf dem Platz vornehmen, also bestim- 
men, welcher Spieler auf welcher Posi- 
tion spielt. Wurde diese Verteilung 
vorgenommen, beginnt das eigentliche 
Fußballspiel, das sich dem Benutzer als 
eine Übertragung der Begegnung prä- 
sentiert. Das heißt, auf dem Monitor 
erscheint ein verkleinertes Stadion, in 
dem die Spieler — wie im Fernsehen — 
dem Ball nachjagen. Hier hat der Spie- 
ler keinerlei Einflußmöglichkeiten, er 
kann nicht einmal die mitunter recht 
langweilige Sequenz abbrechen. 


Nach jedem Spiel kann man dann die 
derzeitige Plazierung des eigenen Ver- 
eins in der Ligatabelle ablesen. Zwi- 
schen den einzelnen Spielen wird trai- 
niert. Auf diesem Wege ist es möglich, 
die Leistungen und den Stil Ihrer Elf zu 
verbessern. 


Außerdem besteht zwischen den Spie- 
len eine Option, die den An- und Ver- 
kauf einzelner Spieler erlaubt — also 
ganz wie im richtigen Leben. 


Deja Vue am Fußballplatz 





Im Vergleich zum ersten Football Ma- 
nager hat sich im Grunde nicht viel ver- 
ändert. Die Spieleinlagen, also die Se- 
quenzen, in denen Ihre EIf gegen eine 
andere Mannschaft spielt, sind zu lang 
geraten und stören den Spielfluß erheb- 
lich. Gut gelungen sind die Sequenzen, 
bei denen der Spieler die Aufstellung 
der eigenen EIf festlegt, da unter- 
schiedliche Spielerpositionierungen 
auch tatsächlich unterschiedliche Spie- 
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Wer kennt ihn nicht, 
den liebenswerten 
Rosaroten Panther, 
der versucht, die Wi- 
drigkeiten des Le- 
bens zu meistern. In 
diesem Abenteuer 
steht das Ausplün- 
dern vermögender 
Persönlichkeiten auf 
dem Programm... 


lergebnisse herbeiführen können. An- 
genehm aufgefallen ist auch die Mög- 
lichkeit, einzelne Spieler trainieren zu 
lassen, um so bessere Leistungen zu er- 
zielen. Offensichtlich wurden hier eini- 
ge Spielstrukturen aus Rollenspielen 
übernommen. 


Fazit 


Ich mag keinen Fußball, das ist auch 
der Grund, warum ausgerechnet ich 
dieses Spiel bespreche. Die Manie, die 
durch den ersten Teil ausgelöst, über 
die Computerspielszene hereinbrach, 
faszinierte mich so sehr, daß ich wissen 
wollte, was nun wirklich an diesem 
Spiel dran ist. 


Spielidee Bedienungs- Dokı Grafik Sound 


ur Preis 
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HEEGIE : 


| 

Tatsächlich braucht man kein Fan zu 
sein, um mit diesem Programm ange- 
nehme Spielstunden zu verbringen. Ein 
echtes Sportspiel ist FM auf keinen 
Fall, vielmehr erwartet den Spieler 
eine eigenwillige und recht spezielle 
Version einer Wirtschaftssimulation. 
Nur wird hier nicht darüber entschie- 
den, was in welcher Fabrik produziert 
wird, sondern welcher Spieler an wel- 
cher Position spielt. 


gaaay 





Als solches betrachtet, vermag FM si- 
cherlich auch Nicht-Fußball-Fans zu 
begeistern. 


(hs) 





Pink Panther 


Hersteller: Micro Partner 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick 

Preis: 29,95 Kass./44,95 Disk. 


CPC 464 X CPC 664 Kl CPC 6128 X 


Pink Panther on the Run! 


Pink Panther — der strahlende Serien- 
held aus dem Fernsehen, so ist er land- 
auf landab bekannt. Und wo der Pan- 
ther sein Unwesen treibt, ist der In- 
spector meist nicht weit. 


In diesem Abenteuer steht Paulchen 
wieder einmal vor dem Problem, daß 
er völlig abgebrannt ist. Keine müde 
Mark mehr im Portemonnaie, be- 
schließt Paulchen, seinen exzessiven 
Lebensstil etwas einzuschränken und 
einer Arbeit nachzugehen. Als Berufs- 
wunsch schwebt ihm eine Dienstlei- 
stung vor, und so begibt sich Paulchen 
zur Arbeitsvermittlung. Da er völlig 
mittellos ist, kann er zunächst nur ei- 
nen Job bekommen. Der Panther hat al- 
lerdings einige Hintergedanken. Wenn 
schon ehrliche Arbeit vonnöten ist, 
sollte ein kleines Extra dabei heraus- 
springen. Doch Arbeitgeber sind oft 
geizig, so daß Paulchen zur Selbsthilfe 
greift. Denn in den Häusern der Rei- 
chen gibt es so manches, was sich zu 
klingender Münze umsetzen läßt. Des 
Nachts, wenn alles schläft, geistert nun 
Paulchen durch die Häuser seiner Ar- 
beitgeber. Doch alle Dienstherren sind 
Schlafwandler, so daß er kaum unge- 
stört seiner “ Arbeit“ nachgehen kann. 
Und außerdem ist da noch der Inspek- 
tor, der sich nichts sehnlicher wünscht, 
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als den sympathischen Panther auf fri- 
scher Tat zu ertappen... 


Schlafwandler 





Nach einem arbeitsreichen Tag beginnt 
für Paulchen der eigentliche Broter- 
werb. Und so schleicht er zu nächtli- 
cher Stunde im Haus seines Arbeitge- 
bers herum. Im gleichen Moment öff- 
net sich auch die Tür des Schlafge- 
machs seines Dienstherrn. Dieser 
streift ebenfalls durch das Haus, ist 
sich seines Tuns jedoch nicht bewußt, 
da er schlafwandelt. Solange nun der 
Hausherr nicht aufwacht, kann Paul- 
chen in Ruhe nach wertvollen Gegen- 
ständen Ausschau halten. Da das Haus 
aber mit Möbeln, Treppen und sonsti- 
gen Hindernissen regelrecht gepflastert 
ist, muß Paulchen ständig ein Auge auf 
den Hausherrn haben. Rempelt dieser 
einen Gegenstand an, so erwacht er un- 
weigerlich und wird zwangsläufig 
Paulchen entdecken. Geschieht dies, 
ist ein Paul dahin. Um den Schläfer al- 
lerdings nicht erwachen zu lassen, ste- 
hen dem Panther verschiedene Techni- 
ken zur Auswahl. 

Zum einen kann er sich vor den Schlä- 
fer stellen und die Arme ausstrecken. 
Kollidiert der Schläfer dann mit Paul- 
chen, ändert er seine Laufrichtung um 
180 Grad. Während der Hausherr nun 
eine weitere Wegstrecke schlafwan- 
deln kann, hat Paulchen eine Gelegen- 
heit, wertvolle Gegenstände an sich zu 
bringen. Zum anderen muß der Schlä- 
fer manchmal um die Ecke geleitet 
werden. Zu diesem Zweck muß Paul- 
chen in die gewünschte Richtung 
schauen und das Glöckchen läuten. 
Außerdem gibt es da noch einen auf- 
blasbaren Panther, der Paulchen recht 
ähnlich sieht. Wenn der Gummipan- 
ther an der richtigen Stelle postiert 
wird, ändert er genauso die Laufrich- 
tung des Schlafwandlers. 

Ein aufblasbares Loch läßt den Inspek- 
tor in selbigem verschwinden, wäh- 
rend ein Katapult auch zur Fernsteue- 
rung des Schläfers eingesetzt werden 
kann. Damit ist der Vorrat verwendba- 
rer Gegenstände allerdings noch lange 
nicht erschöpft... 

Gelingt es Paulchen, alle Arbeitgeber 
auszuplündern, kann er sich von seiner 
anstrengenden Arbeit bei einem aus- 
giebigen Urlaub im Süden erholen. 


Resümee 


Micro Partner ist hier eine sehr einfühl- 
same Umsetzung eines Comic-Helden 
gelungen. Besondere Mühe wurde dar- 


auf verwendet, den eleganten Gang des 
Panthers zu realisieren. 


Spielidee Grafik Sound 


Bedienungs- Doku- Preis! 
freundlichkeit mentation Leistung 
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Grafisch präsentiert sich das Pro- 
gramm von der besten Seite, und auch 
der Sound ist der Ursprungsmelodie 
sehr ähnlich. Hier wurden die Mög- 
lichkeiten des CPC wieder einmal gut 
genutzt. Wenn auch zunächst etwas 
Übung erforderlich ist, um Routine im 
Umgang mit Schlafwandlern zu be- 
kommen, muß trotz ; 

den, daß der Pink 
Spaß macht. 









Sorry, Sorry 


Liebe Leser! 

Leider hat sich in den Spielereviews 
der letzten Ausgabe ein kleiner Feh- 
ler eingeschlichen. Wir stellten Ih- 
nen in diesem Zusammenhang das 
Programm “Minigolf“ vor, das aber 
leider nie auf dem CPC erscheinen 
wird. Verursacht wurde dieser Feh- 
ler durch eine unzutreffende Infor- 
mation des betreffenden Software- 
Hauses. Minigolf war zwar für den 
CPC geplant, wird jetzt aber doch 
nicht für dieses System erscheinen. 


Errare humanum est! 

















Software für CPC und Joyce 


Preiswerte Software für Amstrad-CPC und 
Joyce mit deutschen Handbuch - so machen 
diese Super-Programme richtig Spaß! 























WS-TUNER für WordStar * 


Vergessen Sie alles, was Sie bisher über 
WordStar-Erweiterungen erfahren haben! 
Endlich können Sie Dateien per Cursor- 
tasten auswählen, die Tasten frei belegen, 
Textbausteine verwalten, neue WordStar- 
Befehle definieren, Textlöschungen rück- 
gängig machen, Steuerzeichen invers an- 
zeigen lassen, zwischendurch andere Text- 
dateien ansehen, drucken ohne zwischen- 
zuspeichern, stets freie Diskettenkapazi- 
tät und Textlänge ermitteln und, und, und ... 


Nur DM 49,80 
(unverbindliche Preisempfehlung) 






Großes Buch der Public Domain-Software 


Alles was Sie über deutsche PD-Software 
wissen müssen, finden Sie in diesem Buch. 
Zusätzlich die deutschen Dokumentationen 
zu den Disks 1-6, 8 und 10-12. Ideale Fund- 
grube für Computerterfans! Mit Rabattcou- 
pons für unsere Software! Nur DM 34,80 


Neu: Diskette 18 - MacroPack/Z80 


A opLosgennierung für Einsteiger 
und Profis - Z30-Makroassembler mit link- 
fähigem Code, Linker, Debugger und Editor. 

























1- JRT-Pascal mit 64K-Strings, Overlays * 
2- Z80-Assembler, Linker, Debugger 

4- Compiler Small-C: Fließkommazahlen * 
5- Forth-83: Multitasking, Assembler ... 

6- Utilities: Diskmonitor, Dateiretter ... 
10- BizBasic - CPC-Basic-Erweiterung 

11- E-Basic - CBasic-kompatibler Compiler 
12- Für Turbo Pascal: INLINER, Grafik 
15- WordStar-Utilities: Fußnoten, Index * 
17- C-Interpreter - interaktiv C lernen * 

19- Telekommunikation mit MEX 


* auf dem CPC-464/664 nur mit Speicher- 
erweiterung (64K genügen). 


Der Preis? Nur 30,- Mark pro Diskette! 
(unverbindliche Preisempfehlung) 










Unser Kombi-Angebot: 


Eine beliebige der obigen Disketten 1-19 
und neun 3-Zoll-Disketten von Maxell für 
nur 79 Mark! Oder: WS-TUNER und neun 
3-Zöller von Maxell für nur DM 99,80! 





3-Zoll oder Vortex-Format. Lieferung per 
Nachnahme oder Vorauskasse, Ausland: 
nur Vorauskasse. 


MARTIN KOTULLA 


Grabbestraße 9, 8500 Nürnberg 90 
Telefon 09 11/30 33 33 


Weitere Bezugsquellen: 


Firma Simon, 4600 Dortmund 1, Tel. 0231/511370 
Mükra, 1000 Berlin 42, Tel. 030/7529150 

Firma Becker, 6690 St. Wendel 8, Tel. 06856/504 
Computerstore, 8500 Nürnberg, Tel. 0911/289028 
Hochholzer, 8062 Markt Indersdorf, Tel. 08136/1625 
Weeske, 7150 Backnang, Tel. 07191/1528 

Fritz Obermeier, 4972 Löhne 1, Tel. 05732/3246 
Gisbert Denz, 4784 Rüthen 2, Telefon 02902/58040 










D Software-Revien I] 


Supreme Challenge 


Hersteller: Beau-Jolly 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: ca. DM 49, — 


CPC 464 CPC 664 Kl CPC 6128 X 


Mit Tetris über Ace 
bis zur Elite aufsteigen! 








Compilations erfreuen sich in den letzten 
Monaten bei den Software-Firmen einer 
immer größer werdenden Beliebtheit, 
denn mit Ihnen kann man alte Program- 
me noch einmal neu auf den Markt brin- 
gen, um so noch etwas Geld zu verdie- 
nen. Auch bei den Computerbesitzern 
sind sie sehr beliebt, denn hier besteht die 
Chance, die Softwaresammlung preis- 
wert um einige Perlen zu erweitern. 
Eine Compilation, die nur aus Perlen be- 
steht, liegt mit der Supreme Challenge 
vor. Sie enthält wohl die größten Hits, 
die jemals produziert wurden. Das wä- 
ren: The Sentinel, Starglider, Ace2, Te- 
tris und ELITE. Für die Leser unter Ih- 
nen, die diese Spiele noch nicht kennen 
sollten, aus welchem Grund auch immer, 
werden wir sie jetzt einzeln vorstellen. 


Tetris 

Bei diesem Spiel ist Vorsicht geboten, 
denn man kann danach süchtig werden. 
Dies ist kein Scherz, sondern absoluter 
Ernst und das, obwohl die Spielidee von 
Tetris simpel ist. Stellen Sie sich einen 
Becher vor, in den Puzzle-Stücke fallen. 
Diese können Sie verschieben und dre- 
hen. Ihre Aufgabe besteht nun darin, zu 
verhindern, daß dieser Becher sich bis 
zum Rand mit den Puzzle-Teilen füllt. 
Wie Sie das verhindern können? Ganz 
einfach, drehen und verschieben Sie die 
Puzzle-Teile so, daß eine komplette Rei- 
he entsteht, diese verschwindet dann. 
Sollte sich der Becher füllen, so ist das 
Spiel beendet. Die Grafik präsentiert sich 
farbenfroh, und für dieses Spiel völlig 
ausreichend. Der Sound ist hörenswert. 


ACE2 

Ace2 ist das schwächste in dieser Compi- 
lation enthaltene Programm. Es ist nichts 
anderes als ein Dogfight-Simulator. Das 
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heißt, zwei Spieler jagen sich gegenseitig 
über den Bildschirm und versuchen, den 
anderen aus dem Flieger zu schießen. 
Das Spiel hat für jeden Spieler ein eige- 
nes Cockpit abgebildet. Die Grafik ist 
schnell, wenn auch etwas simpel gehal- 
ten. Den Sound sollte man von Anfang an 
abdrehen. Vielleicht sollte man noch er- 
wähnen, daß der Computergegner auf 
zwanzig Schwierigkeitsstufen eingestellt 
werden kann. 


The Sentinel 

Ein Strategie-Spiel ganz besonderer Art 
ist The Sentinel. Das Ganze ist zwar 
ziemlich abstrakt, aber wenn man einmal 
hinter das Spielprinzip gekommen ist, 
macht es Spaß. Worum geht es nun bei 
diesem Spiel? Ihre Aufgabe besteht dar- 
in, 9999 Welten von Ihrem Levelwächter 
zu befreien. Hört sich einfach an, ist es 
aber nicht. Der Wächter steht jedesmal 
auf einem recht hohen Punkt der Welt. 
Zerstören können Sie Ihn nur, wenn Sie 
über ihm stehen. Da Sie aber unter ihm 
beginnen, müssen Sie sich nach oben ar- 
beiten, und zwar so: Sie können sich je- 
weils einen Block höher beamen. Es be- 
steht aber auch die Möglichkeit, daß Sie 
unter sich einen Stein entstehen lassen. 
Bei allen Aktionen sollten Sie immer dar- 
an denken, daß der Levelwächter (SEN- 
TINEL) Sie beobachtet und auch zerstö- 
ren kann. 


Starglider 

Ein Spiel, das es in sich hat. Sie fliegen 
Ihren AGAV (Airborne Ground Attack 
Vehicle), und Ihre Aufgabe besteht dar- 
in, den Planeten Novenian vor der Inva- 
sion der Egronen, einem brutalen Volk, 
zu verhindern. Sie müssen das Mutter- 
schiff der Egronen, den STARGLIDER, 
finden und zerstören. Grafisch präsen- 








tiert sich das Programm mit Vektorgra- 
fik. Wenn man nun bedenkt, daß der 
CPC ein Computer mit 8-Bit-CPU ist, 
kann man nur über die produzierte Ge- 
schwindigkeit staunen. Das Programm 
an sich ist kein reines Shoot’em Up, son- 
dern vereint mehrere Genres in sich. 


ELITE 

Der Klassiker unter den Computerspie- 
len überhaupt. Hierüber viele Worte zu 
verlieren, ist so, wie Mikro-Chips nach 
Silicon Valley zu tragen. Aber für die 
ganz neuen Computerfreaks unter Ihnen 
geben wir eine kurze Einführung in das 
Spiel. Sie übernehmen die Rolle eines in- 
tergalaktischen Händlers, und Ihre Auf- 
gabe besteht natürlich darin, Handel zu 
betreiben. Ihr Ziel ist es, in die Elite der 
galaktischen Händler aufgenommen zu 
werden. Dazu werden Ihnen sechs ver- 
schiedene Missionen gestellt, die Sie alle 
erfolgreich beenden müssen. Aber Ach- 
tung! Nicht alle Personen, die durch die 
Galaxien gaukeln, sind Ihnen wohlgeson- 
nen. Die Grafik besteht aus Vektografi- 
ken und ist recht flott animiert. 


Spielides Grafik Sound Preis/ 


Leistung 


Bedienungs- Doku- 
freundlichkeit mentation 





MI —- 1 Di CL mu! 

























































































Fazit 


Die Compilation Supreme Challenge ge- 
hört zu jenen, welche sich niemand ent- 
gehen lassen sollte. Hier sind die größten 
Klassiker enthalten, und so bekommt 
man viel Leistung fürs Geld. 
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Bestellservice 


Joysticks (bitte ankreuzen): 













































































CPC-Sonderhefte (bitte ankreuzen): 





















































5119 Competition Pro... i 19,- DM 307 D Sonderheft 1/86 .14,- DM 
5122 Competition Pro Extra 49,- DM 308 Sonderheft 2/86 14,- DM 
5116 The Cruiser + 44, — DM 309 Sonderheft 3/86 14,- DM 
5123 Game Controller. 2... 169, = DM 310 Sonderheft 4/87 14,- DM 
5124 Speed King Konix ..99,- DM 311 Sonderheft 5/87 14,- DM 
5113 Starfighter... 38,- DM 312. Sonderheft 6/88 14,- DM 
5118 Multi Function Joystick DeLuxe..59, - DM 313 Sonderheft 7/88 14,- DM 
5114 IconTroller... 58,- DM 

5717 Phasor One. 48,- DM 

5112 Quickjoy | 19,- DM 

STNZ Gun Shot 19,- DM 

5115 TD The Cruiser. 39,- DM 

Sammelmappen: DOS (Best.-Nr. 530) U] PC Best.-Nr. 531) 








[] TOOLBOX (Best.-Nr. 532) 
PCpur (Best.-Nr. 535) 
































Window (Best.-Nr. 529) 
JOYSTICK (Best.-Nr. 533) = 


2 Stck. 15,80 DM 





D Einen Verrechnungsscheck in Höhe des Rechnungsbetrages 


habe ich beigefügt. 


DD) Ich bitte um Lieferung per Nachnahme, zuzügl. der Nachnah- 


megebühr (nur innerhalb der BRD) 


Porto/Verpackung: 
Inland 3, — DM, Ausland 5, — DM 


DM 





Gesamtbetrag DM 











Datum 


»Abo-Order Zeitschrift« 


Hiermit bestelle ich »PC International« für mindestens 


OD 6Ausgaben U 12 Ausgaben 


Zustellung, Vertriebskosten und MwSt. sind im günstigen 
Preis von 30,— DM bzw. 60,— DM enthalten (BRD und 
West-Berlin). 

Auslandspreise: Europa 12 Ausgaben 90,— DM, 

6 Ausgaben 45,— DM 

Außereuropäisches Ausland 12 Ausgaben 120,— DM, 
6 Ausgaben 60,— DM 

Lieferung erfolgt ab der nächsterreichbaren Ausgabe 





Unterschrift (bei Minderjährigen des gesetzl. Vertreters) 


»Abo-Order DATABOX« 
Hiermit bestelle ich die 
OL CPC Databox OD Joyce-Databox D PC 1512-Databox 


für mindestens [] 6 Ausgaben [|] 12 Ausgaben 
als [] Cassette [] Diskette 3“ bzw. 5 1/4". 
Bezugspreise Inland (einschl. Porto/Verpackung) 


Cass. 6Ausgaben 90,- DM, 12 Ausgaben 180,- DM 
Disk 3" 6 Ausgaben 150,- DM, 12 Ausgaben 300,- DM 


Bezugspreise Ausland (eingekl. Werte außereurop.) 
Cass. 6 Ausg. 100,- DM (120,-)DM, 12 Ausg. 200,- (240,-) DM 
Disk 3" 6 Ausg. 160,- DM (180,-)DM, 12 Ausg. 320,- (360,-) DM 





Lieferanschrift Rechner-Typ 
D Geschäft Privat CPC Joyce 


“em | | 





DPC 























Gewünschte Zahlungsweise: 
Bequem und bargeldlos durch Bankabbuchung 


| SBRBBDERBRM 

















Vorname, Name 


ER EB | | 








Bankleitzahl (von Scheck abschreiben) 


BRERERANBER DIE 








Firma (nur wenn Lieferadresse) 


Sam II | 





























Konto-Nr./-Inhaber 
[III | 


| [II 1 



































Straße, Nr./Postfach 
III | Il 








PLZ/Ort (Bitte genaue Anschrift angeben!) 


Dieses Abonnement verlängert sich automatisch um 6 bzw. 12 Ausga- 
ben, wenn es nicht sechs Wochen vor Ablauf schriftlich gekündigt wird. 





Datum Unterschrift (bei Minderjährigen des gesetzl. Vertreters) 


Bitte unbedingt zwei Unterschriften leisten! 


Geldinstitut 
OD Gegen Rechnung — zahlbar innerhalb zwei Wochen nach Erhalt. 
(Bitte keine Vorauszahlung leisten — Rechnung abwarten.) 


Garantie: 

Ich weiß, daß ich diese Vereinbarung innerhalb einer Woche bei 
der Bestelladresse schriftlich widerrufen kann, wobei bereits die 
rechtzeitige Absendung meines Widerrufschreibens zur Frist- 
wahrung ausreicht. Ich bestätige das durch meine zweite Unter- 
schrift. 





Datum Unterschrift (bei Minderjährigen des gesetzl. Vertreters) 


Oldie Aktion CPC - Oldie Aktion CPC 







































































































































































































































































































































































»Einzelheft-/Databox-Bestellung« 


Oldie Aktion CPC - Oldie Aktion CPC - Oldie Aktion CPC 





































































































Bestellung CPC Spiele 














Bitte liefern Sie mir aus Ihrer Oldie Aktion folgende Spiele- 

















Kombipacks: 

DO 3er Kassettenpack “CPC Oldies“ Best.-Nr. 188 
5er Kassettenpack “CPC Oldies“ Best.-Nr. 189 
3er Diskettenpack “CPC Oldies“ Best.-Nr. 190 

D 5er Diskettenpack “CPC Oldies“ Best.-Nr. 191 





22,- DM 
30,- DM 
36,-— DM 
54,- DM 


Sofern noch erhältlich, soll meine Bestellung die folgenden 
Titel beinhalten. Falls einer oder mehrere der von mir ge- 
wünschten Titel vergriffen sein sollte, wird von DMV ein Er- 
satztitel aus dem nebenstehenden Angebot geliefert. 

Die Spiele sind auf Kassetten und 3“ Disketten lieferbar. 


Porto/Verpackung 


(Inland 3,— DM, Ausland 5,— ‘DM) 
Gesamtbetrag 
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[] 183 



































Den Betrag bezahle ich mittels des beigefügten Verrechnungsschecks. 
Ich bitte um Lieferung per Nachnahme (nur innerhalb der BRD möglich). 
Bei Nachnahme kommt zum Gesamtbetrag noch die Nachnahmegebühr 
hinzu. 
































Datum 


Unterschrift (bei Minderjährigen des gesetzl. Vertreters) 
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ıs2 Space Shuttle Cass. 
ı63 Boxing Cass. 
ı65 Ballblazer Cass. 
175 Wintersports Cass. 
179 Spindizzy Cass. 
ı67 Hacker Il Cass. 
177 Tempest Cass. 
169 Star Riders Il Cass. 
ı7ı Big Trouble in 
Little China Cass. 
Sailing Cass. 
Ghostbusters 3“ Disk. 
Space Shuttle 3“ Disk. 
164 Boxing 3“ Disk. 
184 Little Computer People 
3“ Disk. 
166 Ballblazer 3“ Disk. 
176 Wintersports 3“ Disk. 
180 Spindizzy 3“ Disk. 
168 Hacker II 3“ Disk. 
178 Tempest 3“ Disk. 
170 Star Raiders Il 3“ Disk. 
172 Big Trouble in 
Little China 3* Disk. 
17a Sailing 3“ Disk. 


173 
181 


Unterschrift (bei Minderiähriaen Unterschrift des aesetzl. Vertreters) 





Datum 


« DAAD UONAVY SIPIO - DdD UONMY SIPIO 


ee re = bee 


Gamers Message 


Wieder einmal erreichten uns jede 
Menge Pokes, Cheats und Lösungs- 
strategien. Und all denjenigen, die uns 
geschrieben haben, sei unser herzlich- 
ster Dank ausgesprochen. Wie Sie 
wahrscheinlich festgestellt haben, wur- 
de ein kleiner Wechsel in der Spie- 
leecke vorgenommen. 


Der Grund dafür ist, daß die Fachleute 
der neuen Spielezeitschrift des DMV- 
Verlages (Joystick) nun auch die Ga- 
mers Message der PC International be- 
treuen. Wir möchten die Gelegenheit 


nutzen, unser Team zunächst einmal 
vorzustellen. 


Dem Ihnen sicherlich bekannten Spie- 
leredakteur Heinrich Stiller (hs) stehen 
nun Markus Matejka (mm) und Robin 
Goldmann (rg) für die Pre- und Re- 
views zu Seite. Der Gamers Message 
werden sich zukünftig Bernhard Rinke 
(br) und Robin Goldmann annehmen. 


In diesem Sinne: 
Auf gute Zusammenarbeit. 


So, nun aber zu den Tips, Tricks und 
Lösungshilfen zu beliebten Spielen. 





Leveli 














Tips zu Thundercats 





Dieses Spiel wird durch folgende 
Tricks von Andreas Lober wesentlich 
leichter: 

BONUS LEVEL: Wenn ein Gegner 
mit einem Schild auftaucht, ist es am 
besten, so lange in die entgegengesetz- 
te Richtung zu laufen, bis dieser aus 
dem Bildausschnitt verschwunden ist. 
Geht man wieder zurück, ist der Feind 
meist nicht mehr da. 
ZUSATZLEBEN: In jedem Level (ab 
Level drei) tauchen hin und wieder Pil- 
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Abenteuer III 


ze oder Totenköpfe am Boden auf. Je 
nach Level erhält der Spieler bei jedem 
zweiten oder dritten ein Zusatzleben. 
Wenn die Leben zur Neige gehen (un- 
ter 4, in besonders schwierigen Levels 
unter 6), sollten Sie sich schleunigst ei- 
nen einigermaßen sicheren Platz in der 
untersten Ebene suchen (denn nur dort 
wachsen die Pilze und Totenköpfe) und 
warten, bis solch ein Objekt auftaucht 
(Feinde natürlich abwehren!). Schlägt 
oder schießt der Spieler einen Pilz/To- 
tenkopf auf, erhält man wieder Lebens- 
energie. Dies wiederholt man solange, 
bis die neun Leben wieder aufgefüllt 
sind. 


FLUGZEUG: Im Fire-Level findet 
man nach einiger Zeit ein merkwürdig 
aussehendes Gerät. Unbedingt in die- 


ses Gerät hineinspringen, denn es er- 
leichtert das Level sehr. 

WAFFEN: Man sollte, wenn möglich, 
immer das Schwert vorziehen, da der 
Schuß weniger weit reicht, und die Flä- 
che des Auftreffens wesentlich größer 
1st. 


Karte zu Pink Panther 





Nach dem Motto “ein Bild sagt mehr 
als tausend Worte“ brauchen wir zu 
den Karten zu Pink Panther nicht mehr 
allzuviel hinzuzufügen. 

Die verschiedenen Buchstaben stehen 
für: 

D - Geld 

R - Radio 

G - Grammophon 


P - aufblasbarer Panther 
S - Ausgang 
T - Falltür ° 


Wir hoffen, Ihnen mit diesen Tips ge- 
holfen zu haben und wünschen Ihnen 
viel Spaß beim Spielen. 


Zum Schluß noch eine Bitte: Wir sind 
für jeden Tip zu Computerspielen 
dankbar, nur sollten Sie uns dann auch 
Ihr Computersystem mitteilen, denn es 
gibt so viele Spiele, die auf verschiede- 
nen Computern laufen, und für jedes 
System existieren natürlich auch ande- 
re Pokes. 


Also, bitte daran denken. Ansonsten, 
Tschüs, bis zum nächsten Mal. 


(br) 


















































1 _Peiill| 






































ur r : : 
in. 













































































B 


® 
hi 












































38 PE 1’89 
































Software-Review 


Fachwissen verständlich: 
Macht dem BASIC Beine!! 


Von Interpretern, Compretern und 


Compilern 


Es gibt eine Reihe von Fachbegriffen in Verbindung mit Programmierspra- 
chen, an denen kein Weg vorbeiführt. Wir erklären Ihnen hier, was Sie 
schon immer über Compiler wissen wollten, aber nie zu fragen wagten... 


Was ist ein Compiler? 





Ein Compiler ist ein Programm, das ei- 
nen Programmtext (Quelltext) in eine 
Folge entsprechender Maschinenspra- 
chebefehle umsetzt, die dasselbe in ei- 
ner kürzeren Zeit leisten. Dabei ist das 
Maschinenprogramm in der Regel län- 
ger als der Quelltext. Das erzeugte Ma- 
schinenprogramm (Compilat) ist eine 
im Speicher stehende codierte Zahlen- 
folge, die vom Prozessor (also der 
Computer-Zentraleinheit) ohne Zwi- 
schenstufe direkt verstanden und abge- 
arbeitet werden kann. 


Was ist ein Interpreter? 





Beim Interpreter ist das auszuführende 
Programm auch als Zahlenfolge im 
Speicher abgelegt. Allerdings muß es 
während der Ausführung laufend inter- 
pretiert werden; es müssen Befehle, 
Funktionen und Parameter auf even- 
tuelle Fehler überprüft werden. Dieser 
Vorgang geschieht bei einem compi- 
lierten Programm schon während der 
Übersetzung. Ist der Befehl oder die 
Funktion als gültig erkannt, dann wird 
in ein entsprechendes Unterprogramm 
verzweigt, das aus Maschinensprache 
besteht. Beim PRINT-Befehl wird also 
im Prinzip nur eine Reihe von Maschi- 
nenbefehlen (es sind mit Sicherheit 
weit über 1000) abgearbeitet. Tritt bei 
einem Programm während der Laufzeit 
ein Fehler auf, so wird die Ausführung 
gestoppt und eine entsprechende Feh- 
lermeldung ausgegeben (z.B.: Over- 
flow, String too long, Division by 
zero). Ein Maschinenprogramm er- 
kennt eventuell auftretende Fehler 
nicht. Der Computer kann sich “auf- 
hängen“, er tritt auf der Stelle. 


Und was ist dann bitte 
ein Compreter? 








Da ich von Natur aus ein fauler Mensch 
bin, habe ich die Antwort auf diese 
Frage geklaut (und zwar aus dem 


ROM-Listing vom Markt & Technik- 
Verlag): “Das Schneider-BASIC geht 
einen Mittelweg zwischen Interpreter 
und Compiler. Jede einzelne Pro- 
grammzeile wird schon im gewissen 
Grade übersetzt, bevor sie ins Pro- 
gramm eingefügt wird. Die Zeile wird 
bei der Ausführung aber dennoch inter- 
pretiert. Die Interpretation geht aber 
schneller vonstatten als bei einer nicht 
übersetzten Zeile. Eine solche Inter- 
preterart wird auch "Compreter’ ge- 
nannt.“ Eine Zeile wird nach der Ein- 
gabe verkürzt, indem Befehle und 
Funktionen durch eine Kennzahl abge- 
kürzt (tokenisiert) werden. Die Abkür- 
zung — das Fachwort dafür lautet TO- 
KEN — von PRINT ist zum Beispiel 
191. 


Was ist ein Runtime-Modul? 





Ein Runtime-Modul besteht im wesent- 
lichen aus Unterprogrammen, die für 
die Ausführung eines Compilats not- 
wendig sind. Da der Z80-Mikropro- 
zessor keine Fließkomma-Befehle 
kennt, müssen diese Operationen aus 
komplexen ganzzahligen Berechnun- 
gen zusammengesetzt werden. Das Er- 
gebnis ist dasselbe wie mit einer einge- 
bauten Fließkomma-Einheit oder mit 
einem Co-Prozessor, die Ausführungs- 
zeit ist aber bedeutend länger. Auch 
andere grundlegende Programmteile 
(Routinen) sind mit von der Partie: 
Textausgabe, Ein-/ Ausgabeprogram- 
me, Grafikroutinen und und und... 
Diese “Bibliotheken“ können mitunter 
sehr lang sein. Turbo Pascal hat zum 
Beipiel ein Runtime-Modul von 11 
KBytes. 


Was ist ein Pass? 





Um es gleich vorwegzunehmen, mit 
diesem Pass ist weder ein fälschungssi- 
cherer Euro-Reisepaß, noch ein Alpen- 
übergang gemeint, sondern ein Durch- 
gang während der Übersetzung (engl.: 
to pass= durch-/ überqueren). Bei 


Zweipass-Compilern wird die Quell- 
textdatei zweimal Schritt für Schritt 
durchgegangen. Im Pass 1 wird der 
Programmtext auf Schreibfehler — be- 
kannt als Syntax-(T)error — durchge- 
sehen. Nebenbei wird ein Rohpro- 
gramm erzeugt, das Sie sich als klappe- 
riges Gerüst vorstellen können. Im 
zweiten Durchgang werden Adressen 
(d.h. die Nummern der Speicherstel- 
len), die normalerweise nach dem er- 
sten Durchgang bekannt sind, eingetra- 
gen. Allein durch das Eintragen dieser 
Adressen in das Rohprogramm wird 
unser Programm lauffähig. Gibt es 
nach dem ersten Durchgang unbekann- 
te Adressen, so wird eine Fehlermel- 
dung ausgegeben und die Compilie- 
rung eventuell abgebrochen. Neben 
2-Pass-Compilern gibt es auch noch 
3-Pass-Compiler, die im ersten Durch- 
gang die Überprüfung auf Schreibfeh- 
ler gesondert durchführen, und 1-Pass- 
Compiler, die das Programm “in ei- 
nem Rutsch“ übersetzen. 


Warum ist dann nicht 
jede Programmiersprache 
als Compiler ausgelegt? 











Die Entwicklungszeiten für ein Pro- 
gramm, das compiliert werden soll, 
sind länger als die für ein Interpreter- 
Programm. Ein Basic-Programm kön- 
nen Sie beispielsweise jederzeit mit 
RUN starten; tritt ein Fehler auf, dann 
meldet sich der Interpreter zu Wort und 
weist Sie darauf hin. Beim Compiler 
sieht das Ganze etwas anders aus: Es 
werden nur Fehler im Quelltext er- 
kannt. Während das Compilat abläuft, 
ist keine Überprüfung auf Laufzeitfeh- 
ler vorgesehen (sie ist bei vielen Com- 
pilaten dennoch möglich). Der Quell- 
text muß vor jedem Probelauf compi- 
liert werden. Dieser Vorgang geht 
nicht bei jedem Compiler so schnell 
wie bei Turbo Pascal, wo das Ganze in 
Sekundenschnelle geschieht. 


Wie kann ich einen 
Compiler bewerten? 








Zur Bewertung eines Compilers müs- 
sen folgende Kriterien hergenommen 
werden: 

1.) Die Länge und Geschwindigkeit 
des erzeugten Codes: 
Unterschiedliche Compiler erzeugen 
unterschiedliche Codes. Diese Tatsa- 
che macht sich oft empfindlich in der 
Länge bemerkbar. Diese ist wesentlich 
abhängig vom benutzten Runtime-Mo- 
dul. Bei Geschwindigkeit und Länge 
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grammierer an das Problem herange- 
gangen ist. Die beiden Faktoren kön- 
nen abhängig sein von der Genauigkeit 
der verwendeten Fließkomma-Arith- 
metik (weniger Stellen können natür- 
lich auch in einer kürzeren Zeit berech- 
net werden) oder von den Compiler- 
Optionen. (Es ist klar, daß die Unter- 
drückung der Abfrage der Escape-Ta- 
ste oder gesperrte Interrupts Ge- 
schwindigkeitsvorteile bringen.) Ein 
Beispiel für die Geschwindigkeitsstei- 
gerung eines Compilers: Im Locomoti- 
ve BASIC können Sie eine Integerva- 
riable 840 mal pro Sekunde um 1 erhö- 
hen (x%=x% +1). Das Compilat kann 
im Idealfall dieselbe Operation 105263 
mal pro Sekunde ausführen, was einer 
Geschwindigkeitssteigerung um den 
Faktor 125 gleichkommt — wie gesagt, 
ein Idealfall (ohne Interrupts und mit 
optimaler Übersetzung)! Im Normal- 
fall müssen Sie für eine Steigerung um 
800 % schon sehr dankbar sein! 

2.) Geschwindigkeit 

des Durchsatzes: 

Hier kommt es darauf an, wie schnell 
ein Compiler ein Quellprogramm über- 
setzt. 

3.) Befehlsumfang des Compilers 
Welche Datentypen sind vorhanden 
(Fließkommas, Integers, Strings, 
Chars/Bytes etc.)? Welche Befehle zur 
Strukturierung (Schleifen, Bedingun- 
gen, Verzweigungen)? Welche Mög- 
lichkeiten zur direkten Programmie- 
rung auf Maschinensprache-Ebene 
(z.B.: Inline-Codes, Assemblerquell- 
text-Einbindung wie in C)? 

4.) Modifizierung: 

Besteht die Möglichkeit, das erzeugte 
Programm nachzubearbeiten? Assem- 
bler-Text aus compilierten C-Program- 
men kann zum Beipiel bei vielen Com- 
pilern noch optimiert werden. 


Das war’s 


Sie sehen, diese ganzen “Fachbegrif- 
fe“ sind im Grunde sehr einfach. Wie 
sagte Bodo McBassick neulich zu mir? 
— “Ich kann Judo, Karate, Aikido, Jiu- 
Jitsu und andere asiatische Wörter...“ 
Der alte Angeber! 

(Eckehart Röscheisen / jb) 


FAstBAsic COMpiler 


Entwickler: Peter Höpfner 

Hersteller: GHESoftware, Aachen 
Vertrieb: DMV-Verlag GmbH, Eschwege 
Programm: CP/M 2.0 und 3.0, 100% MC 
Monitor: Farbe/Grün 

Steuerung: Tastatur 

Hardware: CPC 464 + Disk/664/6128 
Preis: DM 69, — (3“-Diskette) 
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Der FAst BAsic COMpiler ist ein neu- 
er 2-Pass-Compiler, der — mit weni- 
gen Einschränkungen — den gesamten 
Locomotive Basic-Befehlssatz (Fließ- 
kommas, Strings etc.) übersetzt. 


Peter Höpfner — der viele andere Pro- 
gramme wie Fast, Tracer, Para Plus 
und Dirman entwickelte — hat nun 
endlich einen Nachbrenner geschaffen, 
der Ihre Basic-Programme bis zu acht- 
mal schneller macht, indem er sie in 
Maschinenprogramme übersetzt. Nun 
kann selbst der Basic-Neuling mit 
“professionellem Touch“ (das heißt 
mit besseren Laufzeiten) program- 
mieren. 


Der FAst BAsic COMpiler — getestet 
wurde von uns die Version 1.00 - 
nutzt die anerkanntermaßen guten Ei- 
genschaften des CPC-BASIC-Dialek- 
tes vollständig. Einschränkungen zum 
Interpreter (oder besser Compreter) 
bestehen nur bei Befehlen zur Pro- 
gramm-Bearbeitung und Programm- 
Veränderung sowie bei Befehlen zum 
Nachladen von Programmen. So kön- 
nen zum Beipiel folgende Kommandos 
nicht übersetzt werden: AUTO, 
CHAIN, CHAIN MERGE, CONT, 
DELETE, EDIT, LIST, MERGE, RE- 
NUM, TRON und TROFF. Die Befeh- 
le LOAD und SAVE beziehen sich aus- 
schließlich auf Binärdateien, RESU- 
ME <zeile> darf nicht in ein Unter- 
programm verzweigen und RESUME 
NEXT sollte nicht verwendet werden; 
mit diesem Befehl könnte Ihr Pro- 
gramm im Nirwana landen, weil keine 
Informationen über die Adresse des 
nächsten Befehls bestehen. Dafür kön- 
nen Sie aber auch beim CPC 464 (mit 
CPC6128-Emulator) sämtliche CPC 
6128-Befehle (außer FILL und MASK) 
verwenden. 


Bitte ein Byte 


Der Entwicklungszyklus mit FaBaCom 
sieht wie folgt aus: 

— Schreiben und Austesten unter Basic 
mit allen zur Verfügung stehenden 
Mitteln eines Interpreters (bzw. Com- 
preters), 


— Compilieren durch Abspeichern des 
Programmes und Aufruf von CP/M 
(der Compiler läuft unter CP/M 2.0 
und CP/M plus) sowie Eingabe von BC 
<name.BAS> /optionen (zwei Optio- 
nen können das zu erzeugende Pro- 
gramm noch verkürzen). 


Der Compiler erzeugt nun eine Binär- 
datei mit dem Namen <name.BIN> 
(es ändert sich nur die Extension), das 
Sie nun unter AmsDOS ganz normal 


mit RUN“ <name.BIN>“ 
können. 


Wie fast ist der FAst BAsic 
COMpiler? 


In punkto Laufzeitverbesserung liegt 
der Compiler im mittleren Feld. Da er 
den gesamten Befehlssatz übersetzt 
und auch Fließkommas akzeptiert, ist 
die Geschwindigkeitssteigerung nicht 
so groß wie bei anderen BASIC-Com- 
pilern. Integerschleifen werden etwa 
viermal so schnell abgearbeitet. Zum 
Vergleich: Assembler bringt eine Stei- 
gerung von 15mal. Die Zeichenausga- 
be wird um den Faktor 2 beschleunigt 
(in Assembler etwa um den Faktor 6). 


starten 





Zusammenfassung 





Wollen wir nun abschließend die Pros 

und Contras des Compilers kurz zu- 

sammenfassen: 

Was uns gefiel: 

+ einfache Bedienung 

+ übersetzt den ganzen Befehlssatz 

+ Compiler und erzeugter Code laufen auf 
allen CPCs 

+ unterstützt Vortex-Hardware sowie Er- 
weiterungs-ROMs und RSXe 

+ compiliert bis zu 17 KBytes lange Basic- 
Programme 

+ ermöglicht einfache Overlays 


Was uns mißfiel: 

— sehr großes Runtime-Modul (Leer-Mo- 
dul: 9 KBytes) 

— nur auf 3“- Diskette erhältlich 

— Geschwindigkeitssteigerungen oft nur 
gering 

— Einbindung von Maschinencode schwierig 

Das Programm wird mit einer knap- 

pen, aber verständlichen deutschen Be- 

dienungsanleitung und mit einigen Bei- 

spielprogrammen (z.B.: Apfelmänn- 

chen, Türme von Hanoi, Landmark- 

Tests und Disk Monitor) ausgeliefert. 

Im übrigen bietet die Firma GHE je- 

dem Benutzer die Möglichkeit, auftau- 

chende Fragen und Probleme schrift- 

lich oder über Hotline zu bearbeiten. 
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Fazit 
Der FAst BAsic COMpiler hat uns 
überzeugt. Er istalles in allem ein nütz- 
liches CPC- Tool, das auch für den An- 
fänger geeignet ist. Wie würde Werner 
sagen? “Ein goiles Teil, Loide!“ 
(Eckehart Röscheisen /jb) 
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Die Assemblerecke 
Mehr Mobilität mit Microcode-Makros 


Eine moderne Gesellschaft erfordert Mobilität — so hört man es von den 
Propheten des Wirtschaftswachstums. Auch in der Computertechnik spie- 
gelt sich diese Entwicklung wider: Immer größer werden die Datenmengen, 
die möglichst schnell von einem Ort zum anderen befördert werden müssen, 
und sei es auch nur innerhalb des Hauptspeichers. Unser CPC mit seinem 
eingebauten Z80-Prozessor sollte dabei nicht abseits stehen, immerhin stellt 
er uns einige leistungsstarke Befehle zur Verfügung, die solche ’Überland- 
Transporte’ fast zu einem Kinderspiel machen. 


Wer zum Beispiel die Ankündigung 
der neuen Amstrad-Computer auf- 
merksam verfolgt hat, wird bei einer 
Angabe vielleicht sofort zum Taschen- 
rechner gegriffen haben: Ein erweiter- 
ter VGA-Grafikmodus, der bei einer 
Auflösung von 640 x 400 Punkten 256 
Farben gleichzeitig darstellt... das 
macht also ein Byte pro Bildpunkt und 
damit insgesamt 640 x 400 = 256000 
Bytes nur für den Bildspeicher! Das ist 
eine Menge Silizium, und wenn man in 
diesem Grafikmodus eine zweite Bild- 
schirmseite einblenden will, so muß 
der Prozessor in Windeseile einen 
Speicherblock von knapp 256 KByte in 
Bewegung setzen. 


Die Anforderungen, die in dieser Hin- 
sicht an den guten alten Z80-Chip im 
CPC gestellt werden, liegen zwar eini- 
ge Zweierpotenzen niedriger. Trotz- 
dem ergeben sich auch bei der Pro- 
grammierung des CPC immer wieder 
Gelegenheiten, bei denen größere Da- 
tenmengen im Speicher herumgescho- 


ben werden müssen. Wer sich dabei 
nur auf BASIC verläßt, hat allerdings 
schlechte Karten. Am besten ist es, 
wenn wir die Unzulänglichkeiten die- 
ser Hochsprache einmal an einem Bei- 
spiel kenntlich machen: 


Nehmen wir einmal an, es sollen 1000 
REAL-Zahlen von einem Array in ein 
anderes kopiert werden, so benötigt 
der CPC mit diesem kleinen, in BASIC 
geschriebenen Programm etwa vier Se- 
kunden: 


10 DIM z1(1000),22 (1000) 
20 FOR i=1 to 1000:z2(i)=z1(i):NEXT 


Ganz anders sieht es dagegen in Ma- 
schinensprache aus. Wie schon zu An- 
fang besprochen, werden wir Ihnen 
heute sehr leistungsfähige ’Blocktrans- 
fer-Befehle’ des Z80-Prozessors in die- 
ser Folge der Assemblerecke vorstel- 
len. Und als Zugabe gibt es noch ein 
Utility, das das obige Problem (und 
noch einiges mehr) in weniger als 0,03 
Sekunden erledigt! 


Kopieren — ganz legal 





Werfen wir zunächst einen Blick auf 
ein kleines Unterprogramm in Maschi- 
nensprache, das einen Speicherbereich 
mit den ’normalen’ Z80-Befehlen ko- 
piert. Gegeben sei die Startadresse des 
Quellbereichs in HL, die Startadresse 
des Zielbereichs in DE, und die zu 
übertragende Länge in BC: 


100 ’NEXT LD A,(HL) ;Byte holen 
110 ’LD (DE),A ‚wieder abspeichern 
120 ’INC HL ;Quelladresse+1 

130 ’INC DE ‚Zieladresse+1 

140 ’DEC BC ;Länge-1 

150 LDA,C 

160 ’OR BB ;Restlänge=0? 

170 ’IJR NZ,NEXT ;nein, weiter 

180 ’RET ‚ansonsten fertig 


Umständlich ist hier besonders der 
Test, ob das BC-Registerpaar bereits 0 
erreicht hat, da die 16-Bit-Zählbefehle 
INC und DEC leider zu faul sind, um 
irgendwelche für den Programmierer 
hilfreiche Flags zu setzen. So bleibt nur 
der Umweg über den Akku und eine 
OR-Verknüpfung von Low- und High- 
byte. 

Es gibt jedoch einen Z80-Befehl, der 
die Programmzeilen 100 bis 140 auf ei- 
nen Schlag erledigt. Er heißt LDI 
(Load and Increment) und hat weiter- 
hin die nette Eigenschaft, daß er mit 
dem ansonsten nur selten benutzten Pa- 
rity-Flag anzeigt, ob BC bereits Null 
erreicht hat. Falls nicht, so ist die Be- 
dingung PE (Parity Even) erfüllt, und 
unser Listing schrumpft damit auf drei 
Zeilen zusammen: 


100 ’NEXT LDI ;Byte übertragen 

110 °JP PE,NEXT ‚weiter falls 
BC<>0O 

120 ’RET ‚ansonsten fertig 


Doch es kommt noch besser: Ein wei- 
terer Z80-Befehl erspart uns sogar 
noch die Schleifenabfrage. LDIR 
(Load, Increment and Repeat) wieder- 
holt automatisch den gesamten Vor- 
gang, bis BC den Wert O erreicht hat, 
und ersetzt damit das gesamte Unter- 
programm! 

Solche Kommandos, die mehr oder we- 
niger komplexe Abläufe unter einem 
Namen zusammenfassen, nennt man 
auch ’Makrobefehle’. Stößt der Z80 
auf den dazugehörigen Operationsco- 
de, so wird ein im Prozessor veranker- 
tes Mikroprogramm aktiviert und ab- 
gearbeitet. So etwas spart nicht nur 
Speicherplatz, sondern geht auch ein 
gutes Stück schneller: Der Prozessor 
muß während der Ausführung von 
LDIR keine weiteren Opcodes aus dem 
Speicher lesen und interpretieren, son- 
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dern kann sich ganz auf die Ausfüh- 
rung konzentrieren. 


Blocktransfer mit 
Rückwärtsgang 


Weitere mit LDI bzw. LDIR verwand- 
te Makros finden Sie in der Befehlsta- 
belle. LDD und LDDR (Load, Decre- 
ment and Repeat) funktionieren ana- 
log, nur werden die Adressen in HL 
und DE dabei nicht erhöht, sondern 
fortlaufend um 1 vermindert. Damit 
wird ein Speicherblock ’von hinten 
nach vorne’ kopiert; HL und DE müs- 
sen zu Beginn auf das Ende des Quell- 
und Zielbereichs zeigen. 

Auf den ersten Blick fragt man sich, 
wozu das gut sein soll. Doch der Nut- 
zen dieses ’Kopieren mit Rückwärts- 
gang’ wird schnell klar, wenn man die 
Probleme betrachtet, die bei sich über- 
lappendem Quell- und Zielblock ent- 
stehen. Angenommen, wir möchten ei- 
nen Datenblock, der 160 Bytes lang ist 
und bei Adresse 40000 beginnt, um 80 
Bytes weiter nach Adresse 40080 ver- 
schieben. Bei Verwendung von LDIR 
würde also das erste Byte von Adresse 
40000 nach Adresse 40080 übertragen 
und damit eine Speicherstelle des 
Quellblocks überschreiben, die noch 
nicht kopiert wurde! In einem solchen 
Fall bleibt einem nichts anderes übrig, 
als das Pferd vom Schwanz her aufzu- 
zäumen und den Kopiervorgang ab 
Adresse 40159 mit LDDR rückwärts 
ablaufen zu lassen. 

Das Diagramm in der Befehlsübersicht 
stellt diese Problematik noch einmal 
grafisch dar und demonstriert gleich- 
zeitig, warum man andererseits unbe- 
dingt LDIR verwenden muß, wenn im 
Gegensatz zu dem obigen Beispiel der 
Anfang des Quellbereichs durch den 
Zielbereich überdeckt wird. 
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Eine weitere Gruppe von Makrobefeh- 
len ermöglicht es, ein bestimmtes Byte 
in einem Speicherblock zu suchen. Das 
Kommando CPI (Compare and Incre- 
ment) erspart die folgenden 3 Befehle: 


CP HL) 
INC HL 
DEC BC 


Der gesuchte Bytewert steht im Akku 
und wird mit der Speicherstelle vergli- 
chen, deren Adresse in HL steht. Da- 
nach wird HL auf die nächste Adresse 
gesetzt und BC um 1 vermindert. Die 
Flags (Carry, Zero, Vorzeichen) infor- 
mieren über das Ergebnis des Ver- 
gleichs und erhalten den gleichen Sta- 
tus wie bei einer Subtraktion A minus 
(HL). Wenn das Zeroflag gesetzt ist, 
stimmen die Werte also überein. Das 
Parity-Flag zeigt genau wie bei den 
Blocktransferbefehlen an, ob BC schon 
0 erreicht hat. 


Für einen fortlaufenden Suchvorgang 
gibt es wie bei den Transferbefehlen 
ein CPI mit eingebauter Schleifenauto- 
matik: CPIR (Compare, Increment and 
Repeat) macht solange weiter, bis A = 
(HL) oder BC = 0 ist, also der zu 
durchsuchende Bereich in ganzer Län- 
ge abgegrast wurde. Dazu ein Beispiel: 
Ein kleines Unterprogramm soll fest- 
stellen, ob in einer Zeichenkette der 
Länge 100, die ab Adresse 35000 im 
Speicher steht, ein ’”X’ vorkommt. 
Falls nicht, so steht abschließend im 
Akku der Wert O0, ansonsten &FF: 


100 ’LD A, “X“ ;Akku = ASC(“X“) 
110 ’LD BC,100 ;BC = Länge 
120 ’LD HL,35000;HL = Startadr. 
130 ’CPIR ‚fortl. suchen 

140 ’LD A,0 ;Akku = 0 

150 ’RET NZ ;wenn nicht gefunden 


160 ’CPL ‚ansonsten A= &FF 
170 'RET ;und zurück 


Wer das Ganze lieber rückwärts mag, 
kann statt CPV/CPIR auch die Befehle 
CPD oder CPDR (Compare, Decre- 
ment and Repeat) benutzen, die HL bei 
jedem Durchlauf um eins vermindern. 
Sie sind nützlich, um das erste Vor- 
kommen eines bestimmten Zeichens in 
einem String von hinten zu ermitteln. 
In HL muß natürlich zu Beginn des 
Suchvorgangs die Endadresse der Zei- 
chenkette stehen. 


Die Schnittstelle zu BASIC 





Als Anwendungsbeispiel für die Mi- 
kro-Makrobefehle des Z80 präsentie- 
ren wir diesmal ein Maschinenpro- 
gramm, das es auch unter BASIC er- 
möglicht, mit absoluter Höchstge- 
schwindigkeit Speicherbereiche zu 
kopieren. Die Parameter (Quell-, Ziel- 
adresse, Länge) werden per CALL- 
Befehl übergeben; das Maschinenpro- 
gramm findet dann im IX-Rgister die 
Adresse einer Tabelle, in die der BA- 
SIC-Interpreter die Werte eingetragen 
hat. Die Zeile 210 überprüft zunächst, 
ob die richtige Anzahl Parameter über- 
geben wurden. Wieviele es genau sind, 
steht nach einem BASIC-CALL im 
Akku. Bei einer falschen Anzahl er- 
folgt aus Sicherheitsgründen sofort ein 
Rücksprung, andernfalls werden die 
Parameter in den Zeilen 230-280 in die 
Z80-Register geladen (siehe dazu auch 
Heft 7/88, S. 27). 

Die Zeilen 300-320 testen, ob die Län- 
ge des zu kopierenden Bereiches (der 
Inhalt von BC) = 0 ist. In diesem Fall 
würde der Z80 nämlich eine gewaltige 
Katastrophe anrichten, da er leider 
nicht schlau genug ist, um zu merken, 
daß er in diesem Fall überhaupt nichts 
tun muß. Nachdem er beim ersten 





CPC-820 KB 5,25“ Floppy 


5,25“ Teamdrive Super Diskettenstation 820 KB, 256 Einträge, anschlußfertig f. 464, 664, 6128, 
Gehäuse siehe Abbildung, umschaltbar auf 180 KB, incl. Teamdrive-Maxi-Programm 
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Durchlauf BC um 1 vermindert hat, 
steht dort nämlich der Wert &FFFF 
(dez. 65535), und danach werden kon- 
sequent die gesamten 64KByte RAM 
des CPC umkopiert, was den Rechner 
mit Sicherheit ins Nirwana schickt. 
Zeile 320 verhindert dieses Unglück 
durch einen vorzeitigen Rücksprung. 
Die Zeilen ab 330 kümmmern sich we- 
gen eventueller Uberlappung des 
Quell- und Zielbereichs darum, ob von 
vorne oder von hinten kopiert werden 
muß. Zu diesem Zweck wird DE von 
HL abgezogen, wobei das Ergebnis 
nicht interessiert, sondern nur der re- 
sultierende Flagstatus. Ist das Carry 
gesetzt, so ist DE > HL und der Ziel- 
block liegt hinter dem Quellblock. In 
diesem Fall arbeitet man also besser 
mit LDDR, wofür der Sprung zum La- 
bel DEKREM sorgt. Hier werden auch 
HL und DE durch Addition der Länge 
minus 1 auf die Endadressen der 
Blöcke gesetzt. 

Eine zweite Routine ab Zeile 570 er- 
möglicht es, durch eine bewußt ’fal- 
sche’ Anwendung von LDIR einen 
Speicherblock mit einem bestimmten 
Wert zu füllen. Zunächst wird die erste 
Speicherstelle mit dem Wert geladen 
(Zeile 680), und dann DE mit der Start- 


adresse in HL plus 1 (Zeile 730-750). 
Das Resultat: LDIR kopiert die erste 
Speicherstelle in die zweite, dann die 
zweite in die dritte, die dritte in die 
vierte... und danach enthalten alle 
Speicherstellen den gleichen Wert! 


Blockmove und Blockfill 


Nachdem Sie das Programm assem- 
bliert haben, finden Sie Startadressen 
der Routinen bei &A600 (BlockMove) 
bzw. &A62A (BlockFill). Alle Leser, 
die sich noch nicht mit einem Assem- 
bler angefreundet haben, können alter- 
nativ den BASIC-Lader abtippen. 
Zum Abschluß drei kleine Anwen- 
dungsbeispiele, die zeigen, wie schnell 
die Blocktransferbefehle des Z80 ar- 
beiten. Wer das zu Beginn dieser Folge 
erwähnte REAL-Array mit DIM(1000) 
kopieren will, Kann jetzt so vorgehen: 


CALL &A600,@z1(1),@z2(1),5000 


Der Klammeraffe (@) ermittelt beim 
CPC die Speicheradresse der nachfol- 
genden Variablen, in diesem Fall also 
die Startadresse der REAL-Arrays. 
Die Länge 5000 ergibt sich daraus, daß 
jede Fließkommazahl exakt 5 Byte im 
Speicher belegt. Die Zeit, die jetzt zum 
Kopieren des Arrays benötigt wird, 





können Sie mit einer normalen Stopp- 
uhr allerdings nicht mehr ermitteln: Sie 
ist zu kurz! Natürlich funktioniert das 
Verfahren auch bei Integerarrays (jede 
Ganzzahl belegt 2 Bytes); bei Zeichen- 
ketten (Strings) jedoch nicht, da sie 
vom BASIC-Interpreter auf eine sehr 
spezielle Art verwaltet werden. 

Eine weitere nützliche Anwendung für 
die BlockMove-Routine ist die Arbeit 
mit zwei Bildschirmseiten. Zunächst 
muß man mit MEMORY &S5FFF einen 
16 KByte großen Pufferbereich reser- 
vieren. Mit 


CALL &A600,&C000,&6000, 
&4000 

wird dann eine Kopie des Bildschirm- 
inhalts in den Puffer übertragen und mit 


CALL &A600,&6000,&C000, 
&4000 


wieder zurückgeholt. Interessant ist es 
weiterhin, mit der BlockFill-Routine 
den gesamten Bildschirmspeicher mit 
einem bestimmten Wert zu füllen: 


CALL &A62A,&C000,&4000,b 


Setzen Sie verschiedene Werte für b 
ein und lassen Sie sich von den Mu- 
stern überraschen, die dieser Aufruf 
erzeugt! (Matthias Uphoff/jb) 







































p Role Eure 2 22 2 2 2 2 2 22 2227272 2 2 22 272 2272 2222 22 25 590 'LD E,(IX+0) ;Fuellbyte holen 

110 ';Blockmove mit automatischer 600 'LD C,(IX+2) ;Laenge holen 

120 ';Beruecksichtigung von 610 'LD B,(IX+3) 

130 ';Veberlappungen: 620 'LD L,(IX+4) ;Startadresse holen 

140 ' 630 'LD H,(IX+5) 

150 ';CALL &A600,Quelle,Ziel,Laenge 640 ' 

160 ' 650 'LD A,C ;Laenge=0? 

ir done = 2 5 2 2 2 2 2 2 22 22 72 2 2 22 22 272 22 22 22 2 2 25 660 'OR B 

180 ' 670 'RET Z ‚falls ja, zurueck 

190 'ORG &A600 680 'LD (HL),E ;1. Byte setzen 

200 ' 690 'DEC BC ;Laenge-i 

210 'cP 3 ;3 Parameter? 700 'LD A,cC ;Restlaenge=0? 

220 'RET NZ ;falls nicht, zurueck 710 'ORB 

230 'LD C,(IX+0) ;Laenge holen 720 'RET zZ ;falls ja, zurueck 

240 ne B,(IX+1) 230..7LD’E,L ;ansonsten Startadr. 

250 Lk (IX+2) ;Start Zielblock holen 740 'LD D,H ‚nach DE 

260 'LD D,(IxX+3) 750 'INC DE ;Zieladr. = Start+i 

270 'LD L,(IX+4) ;Start Quellblock 760 'LDIR ;Block fuellen 

280 'LD H,(IX+5) 770 'RET ;zurueck zu Basic 

290 ' 

300 'LD A,Cc j;Laenge=0? 

310 'OR 8 

320 'RET Z ;falls ja, zurueck 

330 'LD A,L ;Flags setzen gemaess 

340 'SUB E ;jResultat von HL-DE 

350 'LD A,H 

360 'SBC A,D 

370 'JR C,DEKREM ;LDDR falls HL < DE 

380 'LDIR ;jansonsten LDIR 

390 'RET ;zurueck zu Basic 

400 100 KR [1391] 
410 'DEKREM ADD HL,BC ;Ende Quellblock 110 'Blockmove & Blockfill Basiclader [1493] 
420 'DEC HL ;j= Start+Laenge-i 120 ka [1391] 
430 'EX DE,HL 130 ° t117] 
440 'ADD HL,BC ;Ende Zielblock 140 MEMORY &ASFF [467] 
450 'DEC HL ;= Start+Laenge-i 150 FOR adr=&A600 TO &A649 [1180] 
460 'EX DE,HL 160 READ a$:a$="&"+a$';POKE adr,VAL(a$) [2479] 
470 'LDOR ;Block kopieren 170 NEXT [350] 
480 'RET ;zurueck zu Basic ı80 ' {117} 
490 ' 190 DATA FE,03,C0,DD,4E,00,DD,46 [483] 
500 "RREREE EEK ER EEE + 200 DATA 01,DD,5E,02,DD,56,03,DD [1649] 
510 ';Blockfill: Block mit Byte fueilen 210 DATA 6E,04,DD,66,05,79,B0,C8 [1716] 
520 ' 220 DATA 7D,93,7C,9A,38,03,E£ED,BO [1669] 
530 ';CALL &AS2A,Ziel,lLaenge, Byte 230 DATA C9,09,28,EB,09,2B,EB,ED [923] 
540 ' 240 DATA B8,C9,FE,03,C0,0D,5E,00 {1393] 
550  ZRRKKKEKEE EEE EKEKEE KK EFEEc K 250 DATA DD,4E,02,0D,46,03,D0D,6E [1155] 
560 ' 2 260 DATA 04,DD,66,05,79,80,C8,73 [852] 
570 'CP 3 ı3 Parameter? 270 DATA 08, 79,8B0,C8,5D,54,13,ED 21771] 
580 'RET NZ ;falls nicht, zurueck 280 DATA BO,C9S [211] 
Listing RAMCOPY Listing RAMCOPY 











43 


189 PE 


ee 











ıLeerstring * dam ueberspringen | 
‚Skringlaenge nach BE 








Der Diskette aufs 
Byte geschaut 
Ein Floppvkurs für Wissensdurstige 


Mit dem vierten Teil des Floppykurses wollen wir die Erklärung der Disket- 
tenprogrammierung abschließen. Vorher lernen Sie jedoch noch die rest- 
lichen Kommandos des Floppy-Disc-Controllers kennen. Die hierzu nötige 
und leider etwas trockene Theorie werden wir an Hand eines kurzen 
Beispiel-Listings leicht verständlich darlegen. In der nächsten Ausgabe 
erhalten Sie dann noch einen ausführlich dokumentierten, ebenfalls in 
Assembler programmierten Diskettenmonitor, mit dessen Hilfe Sie Ihr 


bisheriges Wissen vertiefen können. 


Als Nachtrag zum letzten Kurs sei noch 
erwähnt, daß der Befehl ’Sektor lesen’ 
durchaus nicht nur auf das Lesen eines 
einzelnen Sektors beschränkt ist. Wer- 
den in Byte 5 und Byte 7 der Befehls- 
phase (gewünschter Sektor bzw. letzter 
Sektor auf Spur) zwei verschiedene 
Werte übergeben, so werden die da- 
‘ zwischenliegenden Sektoren ebenfalls 
gelesen. Das heißt, daß Sie durch ge- 
schicktes Wählen von diesen Bytes mit 
dem Befehl ’Sektor lesen’ auch eine 
ganze Spur lesen können. Wir wollen 
diesen Befehl deshalb besser mit ’Da- 
ten lesen’ bezeichnen, da man ihm 
sonst seine große ’Allround’-Fähigkeit 
nicht ansieht. 

Aber nun wollen wir mit den letzten 
Befehlen starten. 


Auf Du und Du mit dem FDC 





Wir werden die einzelnen Befehle un- 
ter Ihrem Systemnamen aufzeigen. Zur 
Unterstützung des Gelernten können 
Sie die Tabelle I hinzuziehen, aus ihr 
sind die kompletten Informationen zum 
jeweiligen Befehl zu entnehmen. Und 
jetzt heißt es wieder aufpassen. 


Gelöschte Daten lesen 
Ein Sektor wird als gelöscht bezeich- 


net, wenn die ihm vorausgehende 
DAM (Data Address Mark) als ge- 
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löscht eingetragen ist. Dies kann nur 
durch den Befehl "Gelöschte Daten 
schreiben’ geschehen. Beim Formatie- 
ren einer Spur werden zunächst alle 
Sektoren als ’nichtgelöscht’ eingetra- 
gen. Die Befehlsabwicklung ist bis auf 
den Befehlscode identisch mit der von 
’Daten lesen’. Im Normalfall, also bei 
doppelter Schreibdichte (Bit 6=1 ) und 
Benutzung eines Einzelkopflaufwerks 
(Bit 7=0), ist der Befehlscode &4C 
(76). 


Spur lesen 

Dieses Kommando liest alle Datenby- 
tes einer Spur und hat eine mit den vor- 
herigen Befehlen identische Befehl- 
sausfUhrung. Der Befehlscode ist &42 
(66). Der Unterschied zum Lesen einer 
Spur mit Hilfe des Befehls "Daten le- 
sen’ (siehe oben) besteht darin, daß 
'Spur lesen’ die Sektoren in der Rei- 
henfolge liest, wie sie auf der Diskette 
vorkommen (z.B. &C1l, &C6, &C2, 
&C7, &C3, &C8, &C4, &C9, &C5) 
und nicht in numerischer Reihenfolge 
(z.B. &C1, &C, &C3,... ;&C8, 
&C9). Fernerhin müssen Sie bei die- 
sem Befehl wissen, wieviele Bytes Sie 
einlesen wollen. ’Spur lesen’ bricht 
nämlich nicht rechtzeitig ab. Dies be- 
deutet für Sie, daß Sie die gewünschten 
Bytes in einer Schleife lesen und able- 
gen müssen. Die restlichen Bytes müs- 


sen allerdings auch gelesen, jedoch 
nicht im Speicher abgelegt werden. 
Dieser Befehl wird deshalb nur dort an- 
gewandt, wo bereits vorher die Anzahl 
der zu lesenden Daten bekannt ist. 
ANMERKUNG: Das Multi-Sec- 
tor-Read-Bit, das 7. Bit des Befehlsco- 
de, muß Null (0) sein, da dieses Kom- 
mando nur die Sektoren einer Disket- 
tenseite lesen kann. 


ID lesen 

Mit Hilfe dieses Befehls können Sie das 
Format einer Spur ermitteln. Hierzu 
müssen in der Befehlsphase zwei Bytes 
(siehe Tabelle 1) übergeben werden, 
um daraufhin in der Resultphase die 
ID-Informationen zurückzubekom- 
men. Da jeder Sektor sein eigenes ID - 
Feld besitzt, muß der Befehl mehrmals 
wiederholt werden, um alle Sektoren 
auf der Spur zu lokalisieren. Sein Be- 
fehlscode ist &4A (74). 


Daten schreiben 

Dieses Kommando ist das Gegenstück 
zu ’Daten lesen’. Mit ihm werden die 
Daten auf die Diskette geschrieben. 
Hierfür müssen Sie dem FDC die Bytes 
eines Sektors oder wahlweise einer 
ganzen Spur (siehe ’Daten lesen’), in 
der Ausführungsphase übergeben. Wie 
dies geschieht, erfahren Sie am Ende 
dieses Kurses. Der Befehlscode dieses 
Kommandos ist normalerweise &45 
(69). 


Gelöschte Daten schreiben 

Dies ist der einzige Befehl, der es er- 
laubt, die DATA ADDRESS MARK 
(DAM) zu löschen. Hierbei wird in die 
DAM ein Wert eingetragen, an wel- 
chem der FDC beim Lesen erkennt, ob 
es sich um gelöschte Daten handelt. Bei 
diesen Sektoren (mit gelöschter DAM) 
gibt der Befehl "Daten lesen’ ein ge- 
setztes Bit O0 im Statusregister 1 und 
Statusregister 2 zurück. Das Lesen die- 
ses Sektors muß dann mit dem Befehl 
"Gelöschte Daten lesen’ wiederholt 
werden. Sein Befehlscode ist norma- 
lerweise &49 (73). 

ANMERKUNG: Bei diesem und dem 
vorherigen Befehl ist das Skip-Bit (Bit 5 
des Befehlscode) Null (0), da beim 
Schreiben eines Sektors keine gelösch- 
ten Sektoren auftreten können. 


Spur formatieren 

Dieses Kommando beginnt nach der 
Übergabe von sechs Bytes in der Be- 
fehlsphase mit dem Formatieren einer 
Spur. Während des Formatiervorgan- 
ges erwartet der FDC für jeden Sektor 
vier weitere Bytes, und zwar dieselben 
wie beim RST-Befehl &86 (Format 
Track). Nach Abschluß des Komman- 
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Übersicht über die Floppy- Disk- Befehle 


Name Befehlscode Parameter der 
hex, dez, bin Befehlsphase 
DATEN LESEN &46,72,&X01000110 1. Befehlscode 


2. Laufwerk+Kopfadresse 
Bit 0-3 -> Laufwerke 


0=A / 1=B 
Bit 4 -> Kopfaäresse 
0=1. Seite 
1=2. Seite 
Bit 5-7 -> Null 
3. Spurnummer 
4. Kopfadresse 
5. Sektornummer 
6. Sektorgröße 
7. Letzter Sektor der Spur 
8. GAP #03 
9. Sektorlänge, wenn 


Sektorgr.=0 


GELÖSCHTE DATEN &4C,76,&X01001100 Befehlsphase, siehe DATEN 
LESEN LESEN 

SPUR LESEN &42,66,&X01000010 siehe DATEN LESEN 

ID LESEN &4A,74,&X01001010 siehe DATEN LESEN 


DATEN SCHREIBEN &45,69,&X01000101 siehe DATEN LESEN 


GELÖSCHTE DATEN 
SCHREIBEN 


&49,73,&X01001001 siehe DATEN LESEN 


SPUR FORMATIEREN &4D,79,&X01001101 1. Befehlscode 
2. Laufwerk+Kopfadresse 
3. Sektorgröße 
4. Anzahl der Sektoren 
5. GAP #03 
6. Füllbyte 
SPUR 0 ANFAHREN &07,07,&X00000111 1. Befehlscode 
(Recalibrate) 2. Laufwerk+Kopfadresse 
SPUR SUCHEN &0F,15,&X00001111 1. Befehlscode 
2. Laufwerk+Kopfadresse 
3. Spurnummer 
STATUSREGISTER &08,08,&X00001000 1. Befehlscode 
0 ABFRAGEN 
LAUFWERKSTATUS &04,04,&X00000100 1. Befehlscode 
ABFRAGEN 2. Laufwerk+Kopfadresse 
LAUFWERKSTATUS &03,03,&X00000011 1. Befehlscode 
ANGEBEN 2. Steprate+Kopfabhebezeit 
Bit 4-7 Bit 0-3 
Steprate Kopfaufsetzzeit 
Zeit Zeit 
0000 - 32 ms 0000 - 000 ms 
0001 - 30 ms 0001 - 032 ms 
1110 - 04 ms 1110 - 448 ms 
ı111 - 02 ms 1111 - 480 ms 
3. Kopfabhebezeit+DMA-Bit 
BEtiyı Bit 0 
Kopfabhebezeit DMA-Bit 
Zeit 
0000000 - 004 ms 1- DMA-Mod. 
0000001 - 008 ms 0- kein DMA 
2 (z.B. Amstrad) 
1111110 - 504 ms 
1111111 - 508 ms 
DATEN &51,81,&X01010001 siehe DATEN LESEN 
ÜBERPRÜFEN 
GLEICH 
DATEN &59,89,&X01011001 2 ------- MS 
ÜBERPRÜFEN 
KLEINER+GLEICH 
DATEN &5D,93,8&X01011101 22-7777 en 
ÜBERPRÜFEN 
GRÖSSER+GLEICH 





Ausführungsphase 


gelesene Daten müssen 
vom Programmierer ab- 
geholt werden 


Daten aus Sektoren 
mit gelöschter DATA 
ADRESS MARK werden 
vom FDC gelesen und 
müssen vom Progran- 
mierer geholt werden 


ließt alle Bytes 
einer Spur, bis der 
letzte Sektor auf- 
tritt oder bis das 
INDEX-Loch zum zwei- 
tenmal erscheint 


ließt das 1.ID-Feld, 
das der FDC findet 


zu Schreibende Daten 
müssen dem FDC über- 
geben werden 


die Sektoren werden 
beim Schreiben mit 
einer gelöschten 
DATA ADRESS MARK 
versehen 


pro Sektor müssen dem 
FDC folgende 4 Bytes 
übergeben werden: 

1. Spurnummer 

2. Kopfadresse 

3. Sektornummer 

4. Sektorgröße 


Schreib-/Lesekopf 
auf Spur 0 setzen 


Schreib-/Lesekopf 
gewünschte Spur 
setzen 


Ermittelt den Inhalt 
des Statusregisters 0 


Ermittelt den Inhalt 
des Statusregisters 3 


Spezifische Lauf- 
werksdaten können mit 
diesem Befehl ange- 
geben werden (Wichtig 
beim Anschluß von 
Fremdlaufwerken) 


Der FDC liest einen 
Sektor und gleich- 
zeitig wird ein Byte 
vom Benutzer gefor- 
dert, welches mit dem 
gelesenen verglichen 
wird. Je nach Test- 
ergebnis wird das 3. 
Bit im Statusregister 
2 gesetzt. 

Die Testbedingungen 
sind: 

- Gleichheit 

- Kleiner oder Gleich 
- Grösser oder Gleich 


Resultphase 


1. Statusregister 0 
2. Statusregister 1 
3. Statusregister 2 
4. Spurnummer 

5. Kopfadresse 

6. Sektornummer 

7. Sektorgröße 


siehe DATEN LESEN 


siehe DATEN LESEN 


siehe DATEN LESEN 


siehe DATEN LESEN 


siehe DATEN LESEN 


siehe DATEN LESEN 


keine Resultphase, 
danach muß STATUS- 
REGISTER 0 ABFRAGEN 
durchgeführt werden 


keine Resultphase, 
STATUSREGISTER O0 
ABFRAGEN durch- 
führen! 


1. Statusregister 0 
2. Spurnummer 


1. Statusregister 3 


keine Resultphase 


siehe DATEN LESEN 





Bild 1: Eine komplette Übersicht über die Floppy-Befehle. Die jeweils benötigten Parameter finden Sie ebenfalls im Text. 
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dos erhalten Sie wie immer die Result- 
phase, an welcher ersichtlich ist, ob ein 
Fehler aufgetreten ist. 

Aufbau der Befehlsphase: 

1. Byte - Befehlscode 

normalerweise &4D (77) 

2. Byte - Laufwerk+ Kopfadresse 

3. Byte - Sektorgröße (0-5) 

4. Byte - Anzahl der Sektoren 

5. Byte - Länge der GAP #03 

(bei Sektorgröße 5 = &52) 

6. Byte - Füllbyte 

normalerweise &E5 (229) 

Der Aufbau der vier Bytes, die der 
FDC pro Sektor benötigt, entspricht 
den vier Bytes des ID Feldes (Spur, 
Kopf, Sektoradresse, Sektorgröße). 
Genaueres dazu haben Sie bereits in 
den vorangegangenen Kursen erfahren 
(s. Befehl ’Format Track’). 
ANMERKUNG: Das Multi-Sector- 
Read-Bit und das Skip-Bit müssen ge- 
löscht sein, da der Befehl sonst nicht 
ausgeführt wird. 


Die nun folgenden zwei Befehle haben 
keine Resultphase. Deshalb muß nach 
ihrer Ausführung der Befehl "Statusre- 
gister O abfragen’ durchgeführt wer- 
den, da der FDC sonst keine weiteren 
Kommandos entgegennimmt. 


Spur Null anfahren (Recalibrate) 
Dieses Kommando positioniert den 
Schreib-/Lesekopf über Spur 0. Hierzu 
muß man dem FDC zwei Bytes über- 
geben: 

1. Byte - Befehlscode &07 (7) 

2. Byte - Laufwerk + Kopfadresse 


Spur suchen 

Mit ’Spur suchen’ können Sie den 
Schreib-/Lesekopf über der gewünsch- 
ten Spur plazieren. Dies müssen Sie 
immer dann machen, wenn Sie einen 
Sektor lesen, schreiben, überprüfen 
oder eine Spur formatieren wollen, da 
diese Befehle den Schreib-/Lesekopf 
nicht selbst positionieren. Um das 
Kommando zu aktivieren, müssen Sie 
drei Bytes übergeben: 


1. Byte - Befehlscode &OF (15) 
2. Byte - Laufwerk+Kopfadresse 
3. Byte - Spurnummer 


Statusregister 0 abfragen 

Mit diesem Kommando können Sie den 
Inhalt des Statusregisters 0 ermitteln. 
Hierzu muß dem FDC der Befehlscode 
&08 (8) übergeben werden. Danach er- 
hält man das Statusregister O0 und die 
aktuelle Spurnummer zurück. 


Laufwerkstatus abfragen 

Dies ist der einzige Befehl, der es er- 
laubt, das Statusregister 3 auszulesen. 
In Statusregister 3 finden Sie Angaben 
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über die Verfügbarkeit des gewählten 
Laufwerks, so z.B. ob die eingelegte 
Diskette schreibgeschützt ist oder ob 
das Drive bereit ist. In der Befehlspha- 
se müssen folgende zwei Bytes an den 
FDC gesendet werden: 

1. Byte - Befehlscode &04 (4) 

2. Byte - Laufwerk + Kopfadresse 

In der Resultphase bekommen Sie dann 
das Statusregister 3 zurück (Bedeutung 
siehe Kurs 2). 


Laufwerksdaten angeben 

Durch dieses Kommando ist es mög- 
lich, ein anderes Laufwerk an den Con- 
troller anzuschließen. Hierzu ist es 
wichtig, dem FDC die jeweiligen Lauf- 
werksdaten mitzuteilen, wie z.B. Kop- 
fabhebe-/Kopfaufsetzzeit oder Steprate 
(Erklärung siehe Befehl &82 Floppy- 
kurs Teil 1). Die Befehlsphase besteht 
aus folgenden drei Bytes: 

1. Byte - Befehlscode &03 (3) 

2. Byte - Kopfabhebezeit+ Steprate 
Bit 0-3 Bit 4-7 

3. Byte - DMA-Bit+ Kopfaufsetzzeit 
Bit O Bit 1-7 

Den Aufbau der Bytes 2 und 3 entneh- 
men Sie bitte Tabelle 1. Auf die Erklä- 
rung des DMA--(Direct-Memory- 
Access)-Modus wollen wir verzichten, 
da erim CPC keine Verwendung findet 
(Bit0=0). 

ANMERKUNG: Dieser Befehl hat kei- 
ne Resultphase, und es muß auch nicht 
das Kommando 'Statusregister O abfra- 
gen’ durchgeführt werden. 


Daten überprüfen 

Hierbei handelt es sich eigentlich um 
drei Befehle, doch wollen wir uns der 
Einfachheit halber auf die Erklärung 
eines Kommandos beschränken. Mit 
dem Kommando 'Daten überprüfen 
(auf Gleichheit) können Sie testen, ob 
die Daten auf der Diskette mit den Da- 
ten im Speicher übereinstimmen. Dies 
ist z.B. dann nützlich, wenn Sie nach 
dem Schreiben eines Sektors prüfen 
wollen, ob die Daten fehlerfrei auf die 
Diskette geschrieben wurden. Die Be- 
fehlsphase besteht aus den neun be- 
kannten Bytes (siehe "Daten lesen’). 
Die Befehlscodes lauten für: 
Überprüfen auf Gleichheit - &51 
Überprüfen auf kleiner/gleich - &59 
Überprüfen auf größer/gleich - &5D 
Als Ergebnis erhalten Sie, je nach Test- 
erfolg: 

1 = Daten stimmen oder 0 = Daten 
stimmen nicht 

im 3. Bit des Statusregisters 2 zurück. 
Findet der FDC den angegebenen Test- 
sektor nicht, so wird als Fehlerflag das 
2. Bit im Statusregister 2 gesetzt. 


ANMERKUNG: Es ist natürlich auch 
möglich, eine ganze Spur auf ihre 
Übereinstimmung zu überprüfen. Dies 
geht genauso wie beim Befehl "Daten 
lesen”. 


Dem FDC Befehle geben, 
ist das nicht toll? 








Sicher haben Sie sich bereits gefragt, 
wie Sie dem FDC alle diese Bytes am 
geschicktesten übermitteln können. 
Klar, ich muß die Bytes an das Daten- 
register mit der Adresse #FB7F 
schicken. Aber wann und wie mache 
ich das? Diese Unklarheit wollen wir 
nun mit Hilfe unseres Beispielpro- 
grammes (Listing 1) beseitigen. 


1. Wie schicke ich ein Byte 
an den FDC? 


Dazu benutzen Sie am besten die Routi- 
ne "fdcout’ im unserem Listing 1. Aber 
auch das AMSDOS-ROM läßt uns bei 
dieser Frage nicht im Stich. An der 
Adresse #C95C finden Sie eine ähnli- 
che, jedoch umständlicher program- 
mierte Routine. 

LD C, #07 ; AMSDOS ROM 

CALL #B9Y0OF ; selektieren 

PUSH BC ; alten ROMstate retten 
CALL #B900 ; ROM 7 anschalten 
LD BC, # FB7E,, Hauptstatusregister 
LD A,wert ; zu schickender Wert 
CALL #C95C ; fdcout 

. ‚weitere Werte rausschicken 
POP BC ; alten ROMstate 

CALL #B9Y0F ; restaurieren 

CALL # B903 


Dieses Listing bewirkt also dasselbe 
wie unsere Routine ’fdcout’. 





2. Wie hole ich ein Byte 
vom FDC? 





Hierzu ist in unserem Beispiel die Rou- 
tine 'fdcin’ vorgesehen. In AMSDOS- 
ROM steht eine entsprechende Routine 
ab #C6E5. Die Routine zum Schrei- 
ben finden Sie im AMSDOS an der 
Adresse #C6F5. Eine weitere wichti- 
ge Routine findet sich an der Adresse 
#C91IC. Sie liest die Resultphase eines 
Befehls an die Adresse #BE4C. 
Wann Sie welche Routine anwenden 
müssen, entnehmen Sie bitte unserem 
Beispielprogramm, das einen Sektor 
einliest. Dieselbe Routine ist auch für 
das Schreiben eines Sektors einsetzbar. 
Sie müssen lediglich den Befehlscode 
durch &45 und die beiden mit Stern- 
chen gekennzeichneten Zeilen erset- 
zen: IN A,(C) wird zuLD A,(HL), LD 
(HL),A wird zu OUT (C),A. 
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Somit wäre die graue Theorie unseres 
Floppykurses abgeschlossen. Sie soll- 
ten die erworbenen Kenntnisse nun 
selbst ausprobieren, in dem Sie sich 
z.B. ein kleines Kopierprogramm für 
Normalformat schreiben. Nach und 
nach können Sie ihr Programm dann 
weiter ausbauen und sich so ein nützli- 


Am Anfang nicht gleich verzweifeln, 
wenn der Computer mal abstürzt. Sie 
haben dann sicher nur vergessen, die 
Resultphase auszulesen oder einen ähn- 
lichen "Leichtsinnsfehler’ begangen. 
Speichern Sie ihr Assembler-Quellpro- 
gramm am besten vor jedem Versuch 
ab. Viel Glück und viel Spaß dann beim 


Im letzten Teil unseres Disketten-Pro- 
grammierkurses erhalten Sie einen 
komplett in Assembler geschriebenen 
Diskettenmonitor, der sich auf die im 
Kurs gelernten Befehle stützt, und dazu 
noch komfortabel zu handhaben ist. 


(Christoph Hipp/Ulrich Weiß/ 






















ches Disketten-Utility selbst erstellen. Einstieg in die Welt der Diskette. Alexander Knopp/jb) 
10; 4% jr z,resaus ; dann Resultphase auslesen 
20 ; (c) by Mercurysoft 1988 500 ine c ; BC = Datenregister 
30 ; | 510 ;rAAkAkKKrRarErrRe 
40 ; DATEN LESEN | 520 in a,(c) ; Byte einlesen 
50; | 530 ld hl),a ; ablegen 
60 org #A000 | 5A0 „erkkkrkkkkkrrrrrrr 
70 ent $ | 550 ine hl ; Bufferzeiger erhoehen 
80 | 560 dec c ; BC = Hauptstatusregister 
% start: ld a,(drive) \ 57% jr fdein ; naechstes Byte 
100 ld ea ; Laufwerk \ 580 
110 ld a, (spur) 1.590 
120 ıM da ; Spur 600 fdcout: in a,lc) ; A <- Hauptstatusregister 
130 rst #18 610 jp p,fdcout ; FDC nicht bereit 
140 defw seek ; SEEX TRACK 620 ine c ; BC = Datenregister 
150 jp nc,error ; falls Fehler ! 630 aut (c),e ; Byte -> FDC 
160 640 dec c ; BC = Hauptstatusregister 
170 lesen: ld bc,#£fb7e ; BC = Hauptstatusregister 650 ret ; zurueck 
180 ld e,#46 ; Befehlscode fuer DATEN LESEN 660 
190 ld hil,buffer ; Ablagebuffer fuer gelesene Daten 670 resaus: ei ; Interrupts wieder zulassen 
200 call fdcout ; Byte rausschicken 680 ld hl,resbuf ; Buffer fuer Resultphase 
210 ld a, (drive) 6“ ld d7 ; 7 Bytes Resultphase 
220 ld ea ; Laufwerk+Kopfadresse 700 resaul: in a,{c) ; Hauptstatusregister 
230 call fdcout 710 jp p,resaul ; FDC nicht bereit 
240 ld a, (spur) 720 ine c ; BC = Datenregister 
250 ld 8a ; Spur 730 in a,(e) ; Byte lesen 
260 call fdcout 740 ld l),a ; ablegen 
270 ld a, (kopf) 750 ine hl ; Zeiger erhoehen 
280 ld ea ; Kopfadresse fuer ID-Feld 760 dec c ;K= Hauptstatusregister 
2% call fdcout 770 dec d ; Zaehler 
300 ld a, (sektor) 780 jr nz,resaul ; naechstes Byte 
310 ld ea ; gewuenschter Sektor 7% ret 
320 call fdoout 800 
330 ld a, (sekgr) 810 error: ret ; hier Fehlerbehandlung einhaengen 
340 ld ea ; Sektorgroesse 820 
350 call fdcout 830 seek: defw #C763 ; Adresse von SEEK TRACK 
360 ld a,(sektor) ; Lesen eines Sektors: 840 defb #07 ; ROtt-Select 
370 ld ea ; letzter Sektor = 1. Sektor 850 drive: defb %00000000 ; Laufwerk 0 / Kopfadresse 0 
380 call fdoout 860 ; Daten fuer ID-Feld 
3% ld a,(gap03) ' 8% spur: defb 0 ; Spur O0 
400 ld ea » GAP #03 \ 880 kopf: defb 0 ; Kopfadresse 0 
410 call fdcout 8% sektor: defb K1 ; Sektor #C1 (Fuer DATA-Format) 
420 ld a, (laenge) %0 sekgr: defb 2 ; Sektorgroesse (Fuer Normalformat) 
430 ld ea ; Sektorlaenge, wenn Sektorgroesse = 0 90 ; 
440 call £fdcout 920 gap03: defb #2A ; GAP #03 #2A (42) 
450 di ; Interrupts sperren 930 laenge: defb #FF ; Laenge #FF (255) 
460 fdein: in a,(c) ; A <- Hauptstatusregister 940 resbuf: defs 7 » 7 Bytes fuer Resultphase 
470 jp p,fdein ; FDC nicht bereit 950 buffer: defs 512 ; Buffer fuer Sektorgroesse 2 
480 and #20 ; Ausfuehrungsphase beendet ? 
Listing FDC-Programmierung Listing FDC-Programmierung 
P Unser Tip: *STARDRIVE 5.25 (External Disk Drive) 
In 3 Gek, yon LocoScript zu EPH 5.25“ Diskettenzweitlaufwerk für CPC 464/664/6128 
(s. Test in H. 10/88 S. 40; Fazit: “sehr empfehlenswert“) 
\ l — 12 Monate Garantie, Geräte aus industrieller Produktion 
nit FLIPFER 4 den SUperPrOgTaNn n aus GE! — Formschönes Flachgehäuse mit int. Breitband-LED-Anzeige (Power, Drive on) 
ng . — Sehr leiser Lauf (Zitat aus PC-Test: “völlig geräuschlos“) ö 
IN 12 8, mit dt, Hdb, - Vollintegriertes hochw. Schaltnetzteil, Netzschalter mit LED- Anzeige 
— eingebauter Diskettenseitenumschalter (kein Umdrehen d. Diskette mehr) 
Dieses neue Progrann ernoglicht schnellstes - 360 KB, 2x40 Spuren, Headlift (verhindert Datenverlust), 2 Schreib/L.-Köpfe 
— alle Kabel und Bedienungsanleitung im Lieferumfang enthalten nur 298, - DM 
Unschalten zul ischen Locoscript und einen Jetzt auch als ERSTLAUFWERK für CPC 464 lieferbar: 





tP/N-Progsrann, MOSE den Computer neu zu 
starten!!! 
Näheres dazu (und viele weitere Tips) in: 


PCH/JONCE Spezial 1/89 (DNS, 


der neuen Zeitschrift aus dem CMNZ-Verlag 
iz Sonderprospekte anfordern bei: 


Incl. Handbuch, Systemdiskette, Controller 
Weitere Angebote (Auszug aus unserer kosten|. Liste): 
- 3“ + 5.25“-Doppellaufw. (wieder lieferbar) 
mit Handbuch/Systemdisk/Controller 
— Supernetzteil mit Gehäuse u. Schalter 
+5V/2.5A * +12V11.5A f. alle Floppies 


nur 498, - DM 


nur 698, - DM 


nur 39,- DM 


Preis zzgl. Porto/Verpackung, Liste/Prospekte kostenlos 


G + Lelectronic 


Computerhardware 
6759 Hefersweiler * Seelenerstraße 4 * Tel: 06359/2582 
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SC HÖLLENTAL 


SQUMEISSNER | 


ne HERNE; 








Wenn ja, 












dann gehe... 
Bedingtes SUBMIT unter CP/M Plus 


Unsere Januarausgabe steht diesmal ganz im Zeichen der Programmierhil- 
fen, wie man schon unschwer am Beitrag ’SUPERLIST’ sehen kann. War- 
um aber sollen nur die BASIC-Programmierer davon profitieren? Program- 
mieren kann man nicht nur in Programmiersprachen, einige Systeme, wie 
CP/M, lassen auch Eingriffe in den Ablauf desselben zu, und damit wären 
wir schon beim Thema. Für diejenigen unter Ihnen, die auf Ihrem CPC lie- 
ber das CP/M-System laufen lassen, haben wir eine nützliche Programm- 


sammlung abgedruckt. 


Beim Aufstieg von CP/M 2.2 auf die 
Version 3.0 fällt einem so manches 
auf. Da wären zunächst die vielen neu- 
en Dienstprogramme wie SID, MAC, 
RMAC, etc. Dazu kommt ein erweiter- 
tes Directory, eine erhöhte Datensi- 
cherheit, da das ewige <CONTROL> 
+<C> vor einem Diskettenwechsel 
überflüssig wird, für den Programmie- 
rer eine Menge neuer BDOS-Funktio- 
nen, und das noch fast genauso stupide 
SUBMIT wie vorher — eigentlich 
schade. Denn daß Prozeduren bei 
CP/M im Vergleich zu anderen Be- 
triebssystemen nur sehr selten ange- 
wendet werden, liegt daran, daß SUB- 
MIT kaum die bedingte Ausführung 
kennt. Ein IF oder ein GOTO, Grund- 
elemente jeder Programmiersprache 
(na gut, der GOTO-Befehl nicht so 
ganz) fehlen. 
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Nun hat die Firma Digital Research 
Inc. durchaus etwas an SUBMIT geän- 
dert. Man kann SUBMIT-Prozeduren 
unter CP/M Plus schachteln, also in- 
nerhalb einer Prozedur nochmals SUB- 
MIT aufrufen. Das ist vergleichbar mit 
einem CALL in Assembler, einem 
DBASE DO oder einem GOSUB- 
Kommando in BASIC. Des weiteren 
kann man mit SETDEF CP/M veran- 
lassen, bei der Eingabe ’PROG’ nicht 
nur nach PROG.COM, sondern auch 
nach PROG.SUB zu suchen und not- 
falls dann SUBMIT automatisch zu 
starten. Der Befehl SUBMIT braucht 
also nicht mehr geschrieben zu wer- 
den. Auch, man lese und staune, be- 
dingte Prozeduranweisungen gibt es. 
Eine Zeile, bei der das erste Zeichen 
ein Doppelpunkt ist, wird nur ausge- 
führt, wenn der Program-Error-Re- 


turn-Code zu dieser Zeit auf Null ge- 
setzt ist. Leider setzt kein Programm 
im Fehlerfall diesen Code. 


Die im folgenden vorgestellten Pro- 
gramme ermöglichen nun eine beding- 
te Prozedur. Es handelt sich um die Be- 
fehle IF, GOTO und SWITCH. Die 
fertigen COM-Programme sind jeweils 
1 KB groß, was wohl noch zu ver- 
schmerzen und auf einer System-Kopie 
unterzubringen ist. 


Die BASIC-Lader der drei CP/M-Pro- 
gramme werden nach alter Art einge- 
geben, also abgetippt (mit Checksum- 
mer), abgespeichert (sicherheitshal- 
ber) und mit RUN “IF“, RUN*GOTO*“ 
und RUN“SWITCH“ gestartet. Sie er- 
zeugen auf der System-Diskette (bitte 
nur eine Sicherheitskopie nehmen) die 
drei COM-Dateien. 





FREE E22 2.2 2 2 122 2 1202 2 2 222 ee 


;* TEST.SUB EIN BEISPIEL * 


FREE 022 SZ 32 "ZZ Na nz az Ze ze Era Er eREeEe 


IF TEXT '$1'='' GOTO ERKLAER 
IF TEXT '$1'='1' GOTO EINS 
IF TEXT '$1'='2' GOTO ZWEI 
IF SWITCH 7 GOTO FEHLER 

; 

; 
EEE 
; DIE ANGABE $1 ALS PARAMETER 

; IST ZWAR GANZ SCHOEN, BRINGT ABER 

; LEIDER UEBERHAUPTNICHTS. 

FReBoBoE EEE 22.202022 12 272 1212 222 Ze 2 2 22 22 22,27 
SWITCH ON 7 

GOTO ENDE 

; FEHLER 

FacEsE E22 02.2.2. 2.202022 2.2 22 21212 zz ze ee 2 22 222 
; WARUM DENN ZWEIMAL UNSINN EIN- 

; „GEBEN ? EINMAL REICHT DOCH AUCH 
FREE 2.3 2 2.2.2.2 222 222 2 22 ee ee er 
SWITCH NULL 

GOTO ENDE 

;ERKLAER 


i 


DIESE PROZEDUR ZEIGT IHNEN DIE 
BEIDEN BEGLEITTEXT-DATEIEN. 
GEBEN SIE BITTE 


SUBMIT TEST 1 


i 
i 
FREE E 2.2202 2.2.2 2 212 212 2 2 2 ee ee een 


SUBMIT TEST 2 


EIN, JE NACHDEM WELCHE DER BEIDEN 
TEXTDATEIEN SIE SEHEN MOECHTEN. 

FRoB E22. 2.2 2.2.2022 2 2.2 2.2.2 272 212 2 zz eeee22 222 2 

GOTO ENDE 

;EINS 

;ZWEI 

PIP ANLEIT$1.PRN=ANLEIT$1.TXT(Z) 

TYPE ANLEIT$1.PRN 

ERA ANLEIT$1.PRN 

;ENDE 


D 


; 
; 
; 
; 
i 
2 
; ODER 
i 
i 
& 
i 
i 











Bild 1: Eine Beispieldatei 


In der Beschreibung bedeuten die 
Klammern () eine wahlweise Angabe, 
die auch fehlen darf. 


Untereinanderstehende Angaben sind 
eine Auswahl, von der ein Symbol ge- 
schrieben werden muß. 


(Jan Wieck/jb) 


a en er aan | 








Die neuen Befehlsdateien und ihre Anwendung 





IF 

Syntax: 

IF (NOT) FILE dateiname (THEN) kommando (ELSE kom- 

mando) 

EMPTY dateiname SWITCH n TEXT "textl’= text2" 

— FILE ergibt wahr, wenn die angegebene(n) Datei(en) auf 
der Diskette vorhanden ist/sind. 

— EMPTY ergibt wahr, wenn die angegebene Datei leer ist 
oder nicht existiert. 

— SWITCH ist wahr, wenn der angegebene Schalter 
(n = 1-7) durch das SWITCH-Kommando gesetzt wurde. 

— TEXT ist wahr, wenn textl und text2 identisch sind. 
Groß- und Kleinschreibung wird ignoriert. 

Die Hochkommata müssen geschrieben werden. 

Beispiele: 

IF EMPTY ERRFIL.PRN 
ERA ERRFIL.PRN ELSE TYPE ERRFIL.PRN 

IF NOT FILE $1.ASM GOTO FEHLER 

IF TEXT ’$2’ = ’'LOESCH’ THEN ERA *.PRN 


GOTO 

Syntax: 

GOTO label 

Label ist ein symbolisches Sprungziel. Dieses Sprungziel muß 

in der Prozedurdatei als Kommentarzeile enthalten sein. Eine 

Kommentarzeile beginnt mit einem Semikolon. Weder GOTO 

noch das Sprungziel dürfen die letzte Anweisung der SUB- 

MIT-Datei sein. Falls dieses notwendig ist, fügen Sie bitte eine 

leere Kommentarzeile an. 

Beispiel: 

(beliebige Anweisungen) GOTO ENDE (beliebige Anweisungen); 

ENDE ‚ SWITCH 

Syntax: 

SWITCH (?) (NULL) (ON n) (OFF n) 

— '?" oder leer gibt die aktuellen Schalterstellungen aus. 

— NULL löscht alle Schalter. 

—ON/OFF schaltet den angegebenen Schalter 1 - 7 ein oder 
aus. Die Schalter werden im System- Control- Block Byte 6 


gespeichert. Die Bytes 6 - 9 des SCB stehen dem Anwender 
zur freien Verfügung. 








für 6123 








10 L=1000 276] 
20 OPENOUT "IF.COM" 762] 
30 READ B$:N=VAL("&"+B$) 1078 
40 IF N=0 THEN CLOSEOUT:END [1143 
50. S=0:FOR I=s1 TON 723] 
60 READ B$:B=VAL("&"+B$) 1052 
70 PRINT #9,CHR$(B);:S=S+B:NEXT I 1818 
80 READ C:IF C<>S THEN PRINT "Fehler in Ze [2230 
ichelice 

90 L=L+10:G0T0 30 597] 
1000 DATA 10,CD,80,02,21,38,04,0E,05,30,CA [3437 
„28,01,23,23,05,02,1068 

1010 DATA 10,08,01,C3,87,03,56,23,56,EB,E9 [3453] 
‚3A,48,04,3C,CA,87,1556 

1020 DATA 10,03,3E,FF,32,48,04,C3,00,01,0E {3521 
„11,00,58,03,03,29,1203 

1030 DATA 10,02,0E,0F,CD,56,03,3E,FF,CA,29 [2991 
‚02,11,C0,04,0E,1A,1153 

1040 DATA 10,CD,05,00,11,5C,00,0£,14,CD,05 [3088 
‚00,B7,3E,FF,C2,29,1298 

1050 DATA 10,02,3A,CD,04,FE,1A,3E,FF,CA,29 [2658 
‚02,AF,C3,29,02,11,1541 

1060 DATA 10,46,04,06,31,CD0,05,00,47,2A,49 [2615] 
‚04,7E,23,FE,20,CA,1186 

1070 DATA 10,68,01,FE,09,CA,68,01,D6,30,DA [3628] 
‚A2,03,FE,08,02,A2,1960 

3680 BATA 10,03,4F,7E,FE,20,CA,8D0,01,FE,09 [3553] 
‚c2,87,03,22,49,04,1544 

10980 DATA 10,0C,3E,01,00,CA,9C,01,87,17,C3 [3432] 
‚83,01,A0O,CA,29,02,1401 

1100 DATA 10,3E,FF,C3,29,02,2A,49,04,7E,23 [3377] 
‚FE,20,CA,A8,01,FE,1746 

1110 DATA 10,09,CA,A8,0O1,FE,27,C2,87,03,11 [3007] 
‚4D,05,C0,04,02, 7E,1441 

1120 DATA 10,23,FE,20,CA,BF,Ol1,FE,09,CA,BF [2954 
‚0o1,FE,30,C2,87,03,2019 

1130 DATA 10,7E,23,FE,20,CA,D0,01,FE,09,CA [3700 
‚D0,01,FE,27,C2,87,2154 

1140 DATA 10,03,11,C0,05,C0,04,02,22,49,04 {2777 
‚21,40,05,11,CD0,05,894 

1150 DATA 10,1A,BE,13,23,C2,00,02,87,C2,F0 [1861 
‚Ol,3E,FF,C3,29,02,1639 

1160 DATA 10,AF,C3,29,02,7E,23,87,CA,87,03 [3251 
‚FE,27,C2,15,02,7E,1733 

1170 DATA 10,FE,27,C2,26,02,FE,61,0A,21,02 [2608 


‚FE,78,D2,21,02,06,1967 
1180 DATA 10,20,12,13,C3,04,02,AF,12,C9,4F [2332 
‚3A,48,04,A9,CA,58,1336 
1190 DATA 10,02,CD,BC,02,FE,06,CA,42,02,87 [3514 
‚CA,8F,0O3,FE,FF,C2,2161 
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1200 DATA 10,87,03,CD,8C,02,87,CA,9E,02,FE [2765 
‚07,CA,9E,02,3C,C2,1955 

1210 DATA 10,87,03,CD,18,03,C3,42,02,CD,BC [2851 
‚02,FE,07,CA,80,02,1634 

1220 DATA 10,FE,06,CA,60,02,B7,CA,8F,03,3C [2473 
‚c2,87,03,C0,8C,02,1891 

1230 DATA 10,B7,CA,8F,03,FE,07,CA,80,02,3C [2791 
‚c2,87,03,2A,48,04,1650 

1240 DATA 10,E5,CD,18,03,E1,22,48,04,36,00 [3507 
‚c3,60,02,CD,8C,02,1554 

1250 DATA 10,87,CA,9E,02,3C,C2,87,03,CD,ı8 [3057 
‚03,C3,8D,02,3A,40,1642 

1260 DATA 10,04,B7,CA,8F,03,11,80,00,21,4D [3173 
‚04,06,80,7E,12,23,1107 

1270 DATA 10,13,05,C2,AD,02,1E,00,0E,2F,CD [2957 
‚05,00,24,49,04,7E,939 

1280 DATA 10,23,FE,20,CA,BF,02,FE,09,CA,BF [2930 
‚02,87,C8,28,E8,21,2068 

1290 DATA 10,12,04,7E,FE,FF,C8,05,1A,13,FE [4053 
‚61,DA,E5,02,FE,78,2292 

1300 DATA 10,02,E5,02,06,20,4F,46,23,78,E6 [3112 
‚7F,89,C2,08,03,78,1861 

1310 DATA 10,E6,80,CA,D7,02,1A,FE,20,CA,04 [3619 
‚03,FE,09,CA,04,03,1770 

1320 DATA 10,87,C2,08,03,C1,7E,E8,22,49,04 [4285 
‚c9,2B,7E,23,E6,80,1819 

1330 DATA 10,CA,0C,03,23,01,C3,02,02,2A,4B [2945 
‚04,EB,2A,49,04,7E,1469 

1340 DATA 10,FE,20,CA,31,03,FE,09,CA,31,03 [3297 
TETLCHFAS, 09.C3, 52, 10 

1350 DATA 10,03,12,23,13,C3,1F,03,7E,FE,20 [3595 
‚CA,4C,03,FE,09,CA,1462 

1360 DATA 10,4C,03,8B7,CA,4C,03,12,23,13,C3 [2595 
‚37,03,AF,12,22,49,1168 

1370 DATA 10,04,EB,22,48,04,C9,C5,11,CD,04 [2648 
‚OE,1A,CD,05,00,2A,1268 

1380 DATA 10,49,04,22,42,04,11,42,04,0E,98 [2966 
‚CcD0,05,00,C1,22,49,944 

1390 DATA 10,04,7C,B5,CA,87,03,23,7C,85,CA [2388 
‚94,03,11,5C,00,CD,1656 

1400 DATA 10,05,00,3C,C8,3E,FF,C9,11,80,03 [2506] 
‚0E,09,C0,05,00,0£,1226 

1410 DATA 10,00,C3,05,00,11,E1,03,0E,09,CD [2949 
‚05,00,11,C4,03,C3,1089 

1420 DATA 10,8A,03,11,F8,03,0E,09,C0,05,00 [2882 
‚11,C4,03,C3,8A,03,1194 

1430 DATA 10,53,79,6E,74,61,6B,74,69,73,63 [3032 
‚68,65,72,20,46,65,1591 

1440 DATA 10,68,6C,65,72,2C,20,49,46,2D,4B [1857 
‚8F,60,60,61,6E,64,1402 

1450 DATA 10,6F,20,61,62,67,65,62,72,6F,63 [3420] 
‚68,65,6E,2E,0D,0A,1348 

1460 DATA 10,24,46,65,68,6C,65,72,68,61,66 [2852 


‚74,65,72,20,44,61,1465 
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Vertrags ändier 





Spiele für CPC 





Cass. 
1943 29.30 
20.000 Meilen unter dem Meer 
3D Thai Boxing 26.20 
4Spiele 1 Diskette 
720 Grad 
Academy 29.30 
Acrojet 29.30 
Advenced TacticalFighter 29.90 
Aliens 29.30 
Aliens us 
Alternative World Games 29.90 
Americas Cup Challenge 29.30 
Annals ofRome 38,60 
Arcade Force Four 
Archon Collection 34.60 
ArcticFox 34.60 
Arkanoid2 29.90 
Armageddon Man 38.60 
Artura 29.90 


Asterix im Morgenland F. 6128 


Axiens 

Bard'sTale1 34,60 
Bedlam 

Beyond thelce Palace 
BionicCommando 29,90 
Blueberry und das Gespenst 

Bomb Jack 

Bomb Jack 2 

Boulderdash Constr. Kit 34,60 
Brave Star 27.80 
Bubble Bobble 29.90 
Bubble Ghost 

Buggy Boy 29.90 
California Games 29.30 


Disk. 
44.80 
47.90 
43.30 
49.90 
49.90 


43.30 


43.30 
49,90 
43.30 


55.70 
49,90 
49.90 
47.90 
43.30 
47.90 
43.30 
24.70 
46.40 
44.80 
65.70 
44.80 
43.30 
38.60 
38.60 
49.90 
39,90 


47.9 
44,80 
39,90 


Captain America 

Catch 23 

Chamonix Challenge 
Championship Sprint 
Charlie Chaplin 

Clever & Smart 

Crafton & Xunk 

Crazy Cars 

Cybernoid 

Cybernoid 2 

D.T. Olympic Challenge 
Darkside 

DasReich 

Desolator 

Dogfight 2187 
Dreierpack I 
DunDaragh 

Eddy Edwards Super Ski 
Elevator Action 

Rlite 

Empire Strikes Back 
Enduro Racer 

Epyx (The Worlds Greatest) 
Escape from Sings Castle 
Evening Star 

Exolon 

Eye 

Fairlight 

Fernandez must die 
Fifth Quadrant 

Fire & Forget 

Firelord 

Fists’n Throttles 

Flight Ace 

Football Manager2 
Frank Brunos Big Box 
Fugger 






Cass. Disk. Mad Balls 
Games Setand Match 38.60 54,10 MagMax 
Cass. Disk. GamesSetandMatch2 44,90 65.70 Marble Madness 
27.80 39,90 Gauntlet 29.30 Constr. DeLuxe 
26.20 39,90 Gauntlet2 29.30 4480 MarbleMadness 
47% _ GeeBeeAirRalley 29.90 46.40 Constr.Set 
47.90 _ GetDexter 29.90 Matchday2 
29.90 46.40 GliderRider 37.10 Mercenary Compendium 
29.30 44.80 GoldSilberBronze 43.30 5980 MermaidMadness 
34.00 4950 GoldenPath 46.40  Mewilo6128 
46.40  Goonies 29.30 Miami Vice 
29.90 49.90 GuildofThieves 6128 58,80 Miniputt 
34.50 49.90 Gunslinger 34.60 Murder onthe Atlantic 
29,90 49,90 Hacker 38.60 Mystery oftheNile 
29.90 49.90 Hacker2 29.30 Nebulus 
49.90 HeadoverHeels 23.10 38,60 Nemesis 
29.30 44.80 HeavyontheMagick 29.90 Nether 
43.30 HighFrontier 29.30 44,80 NetherWorld 
25.90 Hoppin Mad 29.90 4990 NightRaider 
29.90 39,90 Impossible Mission2 29.30 44.80 OffShore Warrior 
49.90 IndianaJones 3990 One 
26.20 37.10 Indoor Sports 29.30 46.70 OutRun 
59,90 Infodroid 27.80 43.30 ParFiveGolf 
29.30 44.80 International Karate Plus 29.30 43.30 PeterPan 
29.90 43.30  JagdaufRoter Oktober 44.80 5880 Phantom Club 
29.90 55.70 Jinks 34.60 49,90 PHMPegasus 
26.20 43.30 KarateAce 44.90 4990 PingPong 
26.20 Karnov 29.90 49.90 PinkPanthet 
23.10 38.60 Killeduntildead 39.90 Pirates6128 
4790 KnightOrc 43,30 58,80 PSI5 Trading Company 
29.90 Lancelot 65.70 PsychoPigs 
29.90 44.90 Last Ninja2 43.30 5880 Roadblasters 
29.90 LazerTag 29.30 4480 Rolling Thunder 
29.30 44.80  Leaderboard Par 3 44,80 55.70 Rygar 
43.30 Lebenundsterbenlassen 29,90 47.90 Saboteur 
43.30 47,90 LegendofKages 38.60 Saboteur2 
49.90 65.70 Lightforce 26.20 39.90 Samurai Trilogy 
29.90 47.90 Living Daylights 43.30 Sentinel 
43.30 57.20  LukyLukeNitroglycerin 38.60 Shadowfire 
4330  Mach3 29.90 46.40 Shogun 











Cass. 


26.20 
23.10 


43.30 


29.30 
29.30 


29.30 


26.20 
34.60 


19.90 
29.90 
26.20 
29.90 


34.00 
29.90 
29.30 
29.30 
29.90 


34.60 
29.90 


34,60 
34,50 
29.30 


26.20 
29.30 
23.10 
26.20 
29.30 
29.90 
29.90 


. 4620 CASTROP 


Disk. 
43.30 
38.60 


44.80 
46.40 


47.90 


49.90 
57.20 
39.90 


3.30 


49.90 
47.90 
49.90 
43.30 
44.80 


47.90 
49.90 
49.90 
46.40 
44.80 
55.70 


44.80 
39.90 
49.50 
29.90 


43.30 
49.50 


Vertrags" 
händler 


Short Circuit 
Sidewalk 

SixPack 

Six Pack 3 

Skate Crazy 
SlapFight 

Solid Gold 

Space Ace 

Space Harrier 

Spy Versus Spy 
Spy VersusSpy3 
Starglider 
Starquake 

Strange Loop 
Street Gang 
SuperSprint 
Supreme Challenge 
Survivor 

Sweevos World 
Taipan 

Tarzan 

Ten Great Games 3 
Ten Mega Games 
Terror oftheDeep 
Tetris 

Throne of Fire 
Toadrunner 464/664 
Top Ten Collection 
Trailblazer 
Trantor 

Trivial Persuit DT. 
Vermeer 
Vindicator 
Western Games 
Wonder Boy 
Working Backwards 
World Games 
World Games Leaderboard 
Xevious 

Xor 

Zoids 

Zynaps 


Cass. 


23.10 
29.30 
27.80 
29.90 
29.90 
23.10 


49.90 
23.10 
29.30 
26.20 
49.90 


34.60 


44,80 
26.20 


27.60 
27.80 
44,90 
44,90 
29.30 


26.20 


34,50 
26.20 
26.20 
47.90 


29.30 
29.30 
29.90 


29.30 
29.90 
29.30 
27.80 


24.70 











Disk. 


43,30 


46.60 
49.90 


44.80 
65.70 
38.60 
43.30 
39.90 
69.90 
37.10 
46.40 
49.90 
39.90 
54.10 
39.90 


39.90 
39.90 
49.90 
49,90 
43.30 
38.60 


55.70 
49.90 
38,60 


59,90 
58.80 
47.90 
44.80 
48.40 
46.40 
49.90 


43.30 
43.30 
46.40 
39.90 


| Fa RDWARE 


CPC 464/664 
CPC 6128 


no name MF Tastatur 


EuroPC Tastatur u. MM 12 
EuroPC Tastatur u. CM 14 
PC 1512/1640 Tastatur 
Schneider PC 2640 Tastatur 





























(6 108P41):3 270) :1 


Kabel CPC/an Fernseher m. Scart 
Bildschirmfilter GT 64/65 
Bildschirmfilter CTM 640/644 
Druckerkabel 464/664 
Druckerkabel 6128 
Monitorverlängerung CPC 464 
Monitorverlängerung CPC 664/6128 .... 
Musik-/Data-Recorder 
Kabel Computer/Recorder 


Schneider 54" 2D 














PC 1512/1640 eintlg.komplett ............ 49,80 
PC 1512/1640 zweitlg. Set... 59.80 
DMP 2000/2160/3000/3160 u... 19.80 
Star N//ND/NR1D ............neee 24.90 
SEAL LE I een 24,90 
AT TEND) 
EPG aan seen ab 1698.00 
BEIN urn zum Superpreis 
VGA Monitore fürjedenPC .... ab 499.00 
Netzwerk 0:00: 1998.00 
CPC 464 und Grünmonitor GT 65 398.00 
CPC 464 u. Farbmonitor CTM 644 698.00 
CPC 6128 und Grünmonitor GT65 798.00 


CPC 6128 u. Farbmonitor CTM 644 1098.00 





Prozessor: ee 8086 10 Stück mit Hartbox ...........::... 29,80 
Geschwindigkeit: 2 1/," 
Coprozessor: 8087 auf dem Board möglich no name 54 # 2D10Stck. ......cceene.. 9,95 
Hauptspeicher: 640KBRAM BitStar 5/4" HD 10 Stck. .....2 222222... 39,80 
Massenspeicher: 720 KB 3Y2"-Diskettenlaufwerk : 1," 
(1oder2), opt. 30 MB Festplatte Verbatim In 2" 720K 10Stck. ........... 29.80 
Adapter: externe 5)«"-Laufwerke (360 KB boeder 312" 1,44MB 10 Stck. ........... 89.00 
720 KB, 1,4MB)oder Tape Streamer 
Grafik: VGA-Standard, 640x480 Punkte, 
256 Farben, EGA, Hercules und 
CGA kompatibel I 
Tastatur: 102 Tasten, erweiterte AT-Tastatur (MFII) deA11:33 5 (0)33 
Steckplätze: 3x8BitfürStandardkarten vollerLänge 
Lieferumfang: a Diskettenlaufwerk 312”, 
Software: MS-DOS3.3 Betriebssystem, + E1/," I: 
CWRASIC Wiedowe 2.03 720 KB mit 5'4” Einbaurahmen 
Maus: Zwei-Tasten-Maus, Microsoft kompitabel auch für PC 1512/1640 . . 22 ccccccc 278.00 
Bildschirme: Entspiegelte VGA-Monitore, mit 5 
Schwenk ündDrekiuß 20 MB Festplatte zum 
PC12MD Standard, 12” positiv Einstecken (Filecard) .......2..2..... 798.00 
monochrom, 64 Graustufen . .. 
PC14CD optional, 14” Farbe, 0,42 DotPitch Joystickkarte XT/AT für 
PC 12HRCD optional, 12” Farbe, 0,28Dot Pitch 2 Analogjoysticks ........2222eccsee.. 59.00 
PC 14HRCD optional, 14” Farbe, 0,29 Dot Pitch Analogjoystick Quickshot ............. 34.90 
ab2499.- MousePad.....ccceeeeeneeeeeeeeen. 14.90 
Bitte erfragen Sie Liefertermine und Preise der 3-Tasten-Mouse incl. Soft- 
neuen Amstrad-Rechner 2286 und 2386 sowie der ware u. 9/25 pol. Adapter FOREN nur 79.00 


Schneider-Produkte Sprinter 264 und Laser Sprinter. 





BTX-Karte mit FTZ-Nr. ............ nur 598.00 







Vertrags" 














































































































































VertragS" ändler 
OBERE M S händler ha, 
ider 
Gi, Schneic 
Bun) TonPuTer DIVISION 
ändler 
Vertragsh änd Street Sports Soccer 55.70 
Strike 29.30 
Strike Force Harrier 77.40 
Hostages 2 Sub Battle Simulator 66.60 
Feud 29.90 | HotShot 63.50 Summer Edition 127.50 
Fire & Forget 69.90 | Impact 46.40 Crazy Cars ........ 74.30 Superstar Icehockey 66.60 
[2] au Fish 83.10 | ImpossibleMission2 69.90 Dschungelbuch ...... 59.90 Suspect 88.30 
1e @ ur P FlightS.Disc1Texas 46.40 | Indian Mission 57.20 Emmanuelle ........ 59.90 Tag Team Wrestling 55.70 
Flight S.Disc2 Arizona46.40 | IndoorSports 74.30 Operation Hormuz ... 59.90 Test Drive 89.90 
Flight $.Disc3 Calif. 46,40 | Infocom Triple Pack 79.90 Purple Saturn Day.... Tetris 58.80 
20.000 Meilen Chamonix Challenge 77.40 Flight S.Disc 4 InternalKaratePlus 63,50 | I Titan ........ 2.2.2202. The Enforcer 34.60 
unter dem Meer 59.90 | Championchip Golf 103,80 Washington 46.40 | JagdaufRoter The Pawn 74.30 
2400 AD 74.30 Charlie Chaplin 77.10 Flight$.Disc5 Utah 46.40 | Oktober 83.10 | Might and Magic 89.90 | Sargon3 69.90 Thexdor 58.80 
3D Helicopter 58.80 | Checkmate 27.80 Flight S.Disc 6 Kansas 46.40 | Jeanne D’Arc 59,80 | Moebius 74.30 | Sentinel Words 77.10 Three Stodges 83.10 
4x.40ffRoadRacing59.80 | Chessmaster2000 79.90 | FlightS.Disc7Florida46.40 | Jet 109.90 | MontezumasRevange49.90 | SevenCities ofGold 59.80 | Tomahawk 77.10 
500 CC GrandPrix 74,30 Chuck Yeagers Flight S.Disc 11 Jewels ofDarkness 59.90 | Motorbike Madness 49,90 | Shanghai 63.50 Tracker 58.80 
Ace 69.20 | Adv. Fl. Trainer 79.90 Michigan 46.40 | Jinxter 77.40 | Night Raider 63.50 | Sherlock 89.90 | TV Football 97.60 
Ace2 54.10 Circus Games 83.10 Flight S.Disc Japan 46.40 | Jonah Barrington’s Ninja Mission 43.30 Shogun 49.90 Ultima 4 74.30 
Ace of Aces 57.00 Classiques 1 59.90 Flight S. Disc Squash 34.60 | Notapennymore 69.20 | Sidewinder 29.90 Ultima 5 85.80 
Action Service 59.90 | Classiques 2 59.90 San Francisco 46.40 | Kampfgruppe 59.80 | OffRoad Racing 55.70 | Silicon Dreams 63.50 | Universal Military 
Alternate Reality City 63.50 Colossus Mah Jong 59.90 Flight S. Western Karting GrandPrix 46.40 | OffShore Warrior 55.70 | Skyrunner 58.80 | Sceneryi 43.30 
Ancient ArtofWar 77.40 Computer Baseball 49.90 European 46.40 | King of Chicago 97.60 | OneonOnell 7740 Soko Ban 58.80 Universal Military 
Ancient Art of Corruption 77.40 ı Ooze 77.40 | Solitaire 58.80 | Scenery2 43.30 
War and Sea 77.40 Crazy Cars 59.80 Operation Solomons Key 55.70 Universal Military 
Apollo 18 77.10 Crazy Cars 2 79.95 Telefonische Bestellung: Marketgarden 68.50 Sommer Olymp. 88 83.10 Simulator 83.10 
Arctic Fox 77.10 Create aCalendar 59,80 Orbiter 89.90 Space Quest 1 83.10 Valcon 69.20 
Arkanoid 58.80 Crusadein Europe 69.90 0) 23 05 37 70 Pacmania 64.95 Space Quest 2 63,50 Vectoball 97.90 
Arkanoid 2 63.50 Cutthroats 88.30 Paul Whitehead Space Racer 83.00 Vermeer 77.40 
ArmageddonMan 68.50 ; Teaches Chess 147.20 | SpeedBall 99.95 | Volleyball Simulator 59,80 
Asterix im rg 83.10 (Tag und ET 119) PC Gold Hits 55.70 Spitfire Ace 49.90 Wallstreet Wizzard 79.95 
Morgenland 59.90 Dark Castle 77.40 Peter Pan 59.90 Star Goose 77.10 Wilderness 97.60 
B-24 Bomber 74.30 Darkside 55.70 Flight Simulator 123.90 | Kings Quest 3 59.90 | Phantasie 103.10 | StarRankBoxing 77.40 | Winter Edition 127.50 
Bad Cat 59.80 | Neadline 88.30 | FlightSimulator3 139,40 | KingsQuest3erPack 83,10 | PHM Pegasus 74.30 | StarTrekEGA+AT 84,95 | Winter Games 68.50 
Balance ofPower 7990 | DecisionintheDesert83.00 | FootballDirector2 83.00 | Kings Quest4 117.70 | Pirates j 69.90 | Starflight 74.30 | Wishbringer 88.30 
Bard's Tale 1 79.90 Defender of FootballManager2 63.50 | Knight Orc 59,90 Playhouse Strippoker 34.60 Starglider 59.90 | Witness 88.30 
Battle forNormandy 85.80 | ne Crown 74.30 FourthandInches 55.70 | KnightsoftheDesert 68.50 | Police Quest 63.50 | Starray 59,80 | Wizball 58.80 
Battle ofAntietam 85.80 | Noronderofthe FrankBrunosBoxing 58.80 | Kobayashi Naru 29.90 | Pool ofRadiance 59,80 | Stationfall 88.30 | World Class 
Bedlam 58.80 | Crown EgaAT 119.95 Freedom 59.90 | L.A. Crackdown 7430 | Pd 86.70 Stellar Crusade 7740 | Leaderboard 66.60 
Bionic Commando 55.70 | Desert Rats 59,80 Fugger 57.20 | Legend ofBlacksilver 109.30 | Presidentismissing 74,30 | Storm 29.30 | World Games 69,90 
Black Jack 34.60 Double Dragon 118.40 GalacticCongueror 79.95 | LeisureSuitLarry 63.50 | Program Wars 68,50 | Street Sports World Series Baseball 49,90 
Black Jack Academy 83.00 | Hream Warrior 55.70 | Game Overll 77.40 | Lombard RacRalley 84.95 | Psion Chess 77.40 | Baseball 77.10 | World Tour Golf 77.10 
Blueberry und das Driller 59.80 Gamma Games 2 44.80 | Luky Luke PT 109 97.60 Street Sports Yuppies Revenge 83.10 
Gespenst 59.90 . Gato 79.90 | Nitroglyzerin 57.20 | Quadralian 77.10 | Basketball 66.60 | ZakMcKracken 59.90 
Bob Morane im Echelon 127.50 Gauntlet 58.80 | Lurking Horror 88.30 | Questron2 74.30 55 
Dschungel 58.80 a Edwards Sky ern Gnome Ranger 43.30 | MacAdamBumper 58.80 | R.Z. Mittelpunkt Sofinden Sie unser Ladengeschäft: 
Bob Morane is 71.10 Guild of Thieves 74.30 | Mach 3 77.40 | d.Erde 59,80 A 42 (Emscher-Schnellweg) Abfahrt 
Science Fiction 58.80 P 5 Hacker 2 58.80 | ManhattanDealers 74.30 | Rock'n Wrestle 58.80 Castrop-Rauxel, B 235 Richtung Witten, 2. 
Bobo 58,80 | Fspionage ! 64.95 | Hanse 77.40 | Manhunter Ny 97.60 | Rockford 67.40 Ampel rechts, 1. Ampel links, dann 2. 
Boulderdash 1 29.90 | F-16CombatPilot 79,95 Hardball 66.60 | Marble Madness 74.30 | Rogue 29.90 Ampel links. Über 60 Parkplätze stehen 
Boulderdash 2 29.90 | F-16Falcon 109.00 | HellCat Ace 58.80 | Metropolis 59.90 | RomanticEncounter 83.00 Ihnen direkt am Hause kostenlos zur 
California Games 69.90 | F-16 Falcon Hereos oftheLance 77.10 | Mewilo 66.60 Saboteur 2 43.30 Verfügung. 
Captian Blood 69.90 | ATEGAVersion 117.30 Hollywood Hijinx 88.30 | Microprose Soccer 77.10 Sapiens 74.30 
= Mitgelieferte Integriertes Anwendungspaket 
Schneider Modell TowerAT System 220 sotware: MICROSOFT" WORKS (Texverar, 
EuroPC ab 1298.00 EU: 80286 Kon enikatton Grafi) BR 
m = CPU-Clock 10MHz, 0 Waitstate, Landmark: 13MHz Versionen: { £ 
: EuroPC 574” LW 398,00 Co-Prozessor: 80287, optional TowerAT201 — 1Diskettenlaufwerk 
Amstrad/Schneider EuroPC 3%” LW 398,00 Haupt- RAM: 512KB, aufder Hauptplatine TowerAT 202 - 2 Diskettenlaufwerke 
LO 3500 5 48 2 EuroPC 20 MB Festplatte P.a.A. speicher: ee 96KB, TowerAT 220 - ee late + 1 Festplatten- 
24 Nadeln, 160 2/Sec. nur . Telefax 2398.00 Disketten- EinoderzweiLaufwerke 3,5" mit720KB MM12- önben ns Mönitet 12" 
DMP 2160 398 laufwerk Optional: einexternes5,25"-Laufwerk  Cn4- Farb-Monitor 14” Bildschirmdiagonale 
9 Nadeln, 160 Z/Sec. Mur a” Festplatte: ZEN eisen mit20MB Mai ulnme ab DM 2499.- 
Video- Auf.der Hauptplatine integrierter Multi- 
adapter: funktions-Grafik-Chip für folgende Modi 
Software und Auflösungen (Auto-Switch): Modell TowerAT System 260 
5 R Hercules, CGA, EGA, Hi-resEGA mit CPU-Clock 12,5MHz, 0 Waitstate, 
Kirschbaum-Link 168.00 bis zu 800x600 Punkten u. 16/64 Farben  endmark 16,.5MHz 
Norton Commander 229.00 Ausstattung: - batteriegepufferte Echtzeituhr Haupt- 
Norton Advanced Utilities 278.00 = a ni speicher: RAM: 1MB 
PC Tools Deluxe 148.00 — Komfortables Setup-Menü zur Disketten- EinLaufwerk 3,5 Zollmit 1,44MB 
CGA-Emulation f. d. en = laufwerk: (formatiert) 
R e instellung des Vıdeo-Modus Festplatte: 3,5 ZollFestplattenlaufwerk mit 60 MB 
ee en äuog . - Tastatur: 102 Tasten (MF-kompatibel) armatlert; ders Zugniffszeit 25 ms, 
i P BL, Betriebs- Monitor: Multi 
Multiscreen Euro PC 89.00 i.... system MS-DOS3.3, GW-BASIC en ee DM 6998.- 
ART UENSEEEE N NER HER ee ET Tee 
WDSELDSOLEE OT Montag-Freitag 9.00 — 13.00 Uhr | © Senden Sie mir bitte Ihren Katalog BESTELLSCHEIN 
TEN EN EDAN TG 15.00 — 18.30 Uhr | (2,- DM in Briefmarken liegen bei) Anz. | Artikel : Preis 
ELCH ACH ET Samstag 9.00 — 14.00 Uhr ! © Hiermit bestelle ich per Nachnahme: 
Langer Samstag 9.00 — 18.00 Uhr | O Incl. kostenlosem Katalog 
Versand per Nachnahme zuzügl. Versandkosten. Oder Vorkasse | 
auf Psch.-Kto. Nr. 69422-460 PschA Dortmund zuzügl. 5,— DM Ver- | 
sandkosten. | Vorname, Name u 
Ausland nur per Vorkasse auf Psch.-Kto. zuzügl. 10,— DM Versand- | 
kosten. Bitte bei allen Bestellungen Computertyp angeben! | Straße, Hausnummer 
Besuchen Sie unser Ladengeschäft und lassen Sie sich durch l T T 
unser geschultes Fachpersonal beraten. Wir haben laufend j PIZ. Or 
günstige Angebote und stark reduzierte Vorführgeräte. j 
Irrtümer und Preisänderungen vorbehalten = ” 
l Computer- und Monitortyp Datum, Unterschrift 
8 


NT Programm 











1470 DATA 10,74,65,69,6E,61,60,65,24,55,6E 
‚87,75,65,6C,74,69,1620 

1480 DATA 10,67,65,20,53,63,68,61,6C, 74,65 
‚72,6E,75,60,60,65,1604 

1490 DATA 10,72,24,4E,4F,D4,01,46,49,4C,C5 
‚02,45,40,50,54,09,1465 

1500 DATA 10,03,53,57,49,54,43,C8,04,54,45 
‚58,D4,05,54,48,45,1284 

1510 DATA 10,CE,06,45,4C,53,C5,07,FF,1A,01 
‚29,01,31,01,5F,01,1114 

1520 DATA 10,A5,01,00,00,5C,00,06,00,00,81 
‚00,4D,04,00,00,00,474 

1530 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1540 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1550 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1570 DATA 0 


10 L=1000 

20 OPENOUT "GOTO.COM" 

30 READ B$:N=VAL("&"+B$) 

40 IF N=0O THEN CLOSEOUT:END 

50 S=0:FOR I=1 TON 

60 READ B$:B=VAL("&"+B$) 

70 PRINT #9,CHR$(B); :S=S+B:NEXT I 

80 READ C:IF C<>S THEN PRINT "Fehler in Ze 
I.ıer rl k 
90 L=L+10:G0TO 30 

1000 DATA 10,2A,06,00,E5,11,0A,00,19,11,1E 
ı03,€00,19,02,E1,CA,1038 

102.0, DATA 10,26,01,32,22,0072 39, 7E,B7.C2,34 
„a2, 2, E2NER,1I,BE,1289 

1020 DATA 10,23,56,EB,C3,03,01,11,F0,02,19 
2240.1.,016,,20% E35 01402832 

1030 DATA 10,11,21,00,19,22,12,02,22,16,02 
a8 AR DE NL OLYV2 3,23 BT 

1040 DATA 10,22,0A,02,22,27,03,11,00,00,21 
00,00, 19, AR), 77,22,536 

1050 DATA 10,20,00,19,77,0E,0F,CD,05,00,3c 
„CAL3EN02,3E,80,C0,1187 

1060 DATA 10,15,02,21,81,00,7E,23,FE,20,CA 
„65,01,FE,09,CA,65,1502 

1070 DATA 10,01,11,2A,03,0E,11,2B, 7E,23,FE 
‚20,CA,90,01,FE,09,1194 

1080 DATA 10,CA,90,01,87,CA,90,01,12,13,0D 
„c2,77,01,03,4A,02,1512 

1090 DATA 10,79,06,11,CA,4A,02,CD,AB,01,DA 
‚55,02,21,38,03,11,1424 

1100 DATA 10,29,03,CD0,19,02,02,96,01,C3, 75 
‚02,11,38,03,CD,E2,1445 

1110 DATA 10,01,FE,0D,CA,C6,01,FE,FF,CA,Di 
007,12, BRSSEH OR 727, 

1120 DATA 10,3C,37,C8,C3,AE,01,CD,E2,01,FE 
"OR ,G2., D1V,01, CD, E2,2216 

1130 DATA 10,01,32,00,00,F5,CD,11,02,30,CD 
w15,02,.01 3B7,30,€e0,43485 

1140 DATA 10,37,C9,C0,11,02,FE,80,C2,F8,01 
‚D5,CD0,09,02,11,00,1754 

1150 DATA 10,00,0E,14,CD,05,00,D1,387,37,co 
‚AF,4F,3C,CD,15,02,1425 

1160 DATA 10,2A,27,03,06,00,09, 7E,87,C9,11 
‚00,00,0E,1A,C3,05,866 

1170 DATA 10,00,3A,00,00,C9,32,00,00,C9,1A 
„B7.,C8,C0,28402447,1240 

1180 DATA 10,7E,CD,28,02,88,C0,23,13,C3,19 
‚02,FE,61,D8,FE,78,1972 

1190 DATA 10,D0,06,20,C9,11, 
ı05,00,C3,75,02,11,1386 

1200 DATA 10,BE,02,0£,09,CD,05,00,C3,60,02 
ı11,E0,02,0E,09,cD,1789 

1210 DATA 10,05,00,C3,60,02,11,03,03,0E,09 
‚CD,05,00,C3,60,02,847 

1220 DATA 10,AF,CD,15,02,2A,27,03,11,3B,FF 
094235 T2,11, UA, 02, 72023 

1230 DATA 10,0E,09,C8,05,00,0E,00,C3,05,00 
,260,:20,,50,725:6F, 7A,950 

1240 DATA 10,65,64,75,72,20,61,62,67,65 
,12,6#,63,68,65,68E,1600 

1250 DATA 10,2E,0D,0A,24,48,65,69,6£,65,20 
‚50,72,6F,7A,65,64,1257 

1260 DATA 10,75,72,20,61,68,74,69,76,2C,20 
‚47,4F,54,4F,20,61,1324 

1270 DATA 10,62,67,65,62,72,6F,63,68,65,6E 
‚2E,00,0A,24,4C,65,1321 

1280 DATA 10,74,7A,65,72,20,42,65,66,65,68 
‚6C,20,64,61,72,66,1512 

1290 DATA 10,20,68,65,69,6E,20,47,4F ,54,4F 
20,13,65,69.,6£, 24.7298 

1300 DATA 10,53,70,72,75,6E,67,60,61,72,68B 
09,20,66,65,68,6C; 1674 

1310 DATA 10,74,20,6F,64,65,72,20,69, 73,74 
‚20,7A,75,20,6C,61,1450 
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1320 DATA 10,6E,67,24,53,70,72,75,6£,67,6D 
‚61,72,68,65,20,6E,1558 : 

1330 DATA 10,869,63,68,74,20,67,65,66,75,6E 
‚64,65,68,24,47,45,1476 

1340 DATA 10,54,20,20,20,20,20,00,00,00,3B 
‚00,00,00,00,00,00,303 

1350 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1360 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1370 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1380 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1390 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1410 DATA 0 
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10 L=1000 

20 OPENOUT "SWITCH.COM" 

30 READ B$:N=VAL("&"+B$) 

40 IF N=0 THEN CLOSEOUT:END 

50 S=0:FOR I=1 TON 

60 READ B$:B=VAL("&"+B$) 

70 PRINT #9,CHR$(B);:S=S+B:NEXT I 

80 READ C:IF C<>S THEN PRINT "Fehler in Ze 
tea 

90 L=L+10:60T0 30 

1000 DATA 10,11,B7,02,0E,31,CD0,05,00,57,21 
‚81,00,C0,9F,01,7E,1215 

1010 DATA 10,87,CA,F6,01,FE,3F,CA,F6,01,01 
‚28,02,CD,AD,01,CA,2022 

1020 DATA 10,41,01,01,28,02,CD,AD,01,CA,67 
‚01,01,2F,02,CD,AD,1225 

1030 DATA 10,01,CA,8E,01,11,34,02,0E,09,CD 
‚05,00,0£E,00,C3,05,864 

1040 DATA 10,00,01,02,00,09,CD,D6,01,3E,01 
‚B7,0C,00,CA,55,01,991 

1050 DATA 10,17,0D,C3,4A,01,B2,57,CD,9F,0ı 
‚7E,B7,CA,E7,01,FE,1933 

1060 DATA 10,2C,C2,34,01,C3,45,01,01,03,00 
‚09,CD,D6,01,3E,FE,1305 

1070 DATA 10,B7,0C,0D,CA,7C,01,37,17,00,C3 
‚70,01,A2,57,CD,9F,1547 

1080 DATA 10,01,7E,B7,CA,E7,01,FE,2C,C2,34 
‚01,C3,6B,01,01,04,1597 

1090 DATA 10,00,09,CD,9F,01,7E,B7,C2,34,01 
‚16,00,C3,E7,01,7E,1505 

1100 DATA 10,23,FE,20,CA,9F,01,FE,09,CA,9F 
‚01,28,C9,E5,7E,FE,2161 

1110 DATA 10,61,DA,88B,01,FE,78,02,B8,01,D06 
‚20,77,0A,B7,CA,CA,2240 

1120 DATA 10,01,BE,23,03,C2,04,01,C3,AE,01 
‚7E,E1,B7,C8,FE,20,2026 

1130 DATA 10,C8,FE,09,C9,E1,C9,CD0,9F,01,7E 
‚06,30,DA,34,01,FE,2368 

1140 DATA 10,08,02,34,01,23,4F,C9,7A,32,8D 
‚02,11,88,02,0E,31,1218 

1150 DATA 10,CD,05,00,C3,3C,01,05,11,7E,02 
‚0E,09,CD,05,00,01,1266 

1160 DATA 10,7A,OE,08,1F,F5,C5,DA,0OF,02,11 
+19,02763,.12, 02,34 17284 

1170 DATA 10,74,02,0E,09,CD,05,00,C1,F1,00 
202103402,:14.,71,.02,.11.29 

1180 DATA 10,0£,09,CD,05,00,C3,3C,01,4F,4E 
‚00,4F,46,46,00,4E,943 

1190 DATA 10,55,4C,4C,00,53,79,6E,74,61,6B 
‚74,69,73,63,68,65,1511 

1200 DATA 10,72,20,46,65,68,6C,65,72,20,69 
‚60,20,48,6F,60,6D,1426 

1210 DATA 10,61,6E,64,6F,61,75,66,72,75,66 
‚2C,20,48,6F,60,60,1547 

1220 DATA 10,61,6E,64,6F,20,61,62,67,65,62 
‚72,6F,63,68,65,6E,1586 

1230 DATA 10,2E,0D,0A,24,20,4F,4E,20,24,4F 
‚46,46,20,24,53,63,831 

1240 DATA 10,68,61,6C,74,65,72,3A,20,20,20 
‚20,30,20,20,20,31,1019 

1250 DATA 10,20,20,20,32,20,20,20,33,20,20 
‚20,34,20,20,20,35,590 

1260 DATA 10,20,20,20,36,20,20,20,37,0D,0A 
‚20,20,20,20,20,20,516 

1270 DATA 10,20,20,20,20,20,20,24,06,00,00 
‚00,06,FF,00,00,00,495 

1280 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1290 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1300 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1310 DATA 10,00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,00,0 

1330 DATA 0 
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C D ee L i sti n g servV | ce 1. Das abgetippte Programm vor dem ersten Start abspeichern, da 


der Checksummer Maschinensprache enthält. 


Ei n 9 abeko ntrol | e fü r List i n gs 2. Um den Checksummer benutzen zu können, genügt es, das Pro- 


gramm einmal durch RUN zu starten. Es wird selbständig der Ma- 
schinencode eingelesen und aufgerufen. 


3. Jedesmal, wenn die ENTER oder RETURN-Taste gedrückt wird, 
erscheint eine Quersumme der eingegebenen Zeile. Z.B. wenn ohne 
Zeile die ENTER-Taste gedrückt wird, erhalten Sie in eckigen 
Klammern, am Ende der Zeile eine <0>. Dadurch lassen sich ein- 





Die Fehlersuche von abgetippten Listings ist manchmal getippte Listings gleich auf Fehler überprüfen. 

eine lästige und nervenaufreibende Sache. Wenn Sie auch 

dieser Meinung sind, dann können wir Ihnen eine Hilfe 4. Weitere Möglichkeiten: Möchten Sie ein Listing mit dem Check- 
anbieten. summer ausdrucken, so läßt sich auch das bewerkstelligen. Z.B. mit 


Icheck,x,y. Wobei x=Ausgabekanal und y=Zeilennummer ist. Vor 
dem Druck sollteman mit WIDTH x die maximale Breite (x) einer 
Zeile festlegen. Mit Hilfe der RSX-Befehle ON und OFF kann der 
Checksummer ein- bzw. ausgeschaltet werden. 


Auf dieser Seite befinden sich drei Programme, die für jeden CPC- 
Rechner abgestimmt sind. Der “Checksummer“ hilft Ihnen bei je- 
der Eingabe von Programmlistings. 

Bevor Sie sich das Programm, das für Ihren Rechner geeignet ist, 
vornehmen. Sollten noch einige “Dinge“ beachtet werden: (Thomas Fippl/cd) 
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Version 464 Version 664 Version 6128 

10 REM *** CHECKSUM 464 *** [1071] 10 REM *** CHECKSUM 664 *** [1262] 10 REM *** CHECKSUM 6128 *** [945] 
20 MEMORY &AAFF [463] 20 MEMORY &A4FF [463] 20 MEMORY &A4FF [463] 
30 FOR a%=&A500 TO &A607 [903] 30 FOR a%=&A500 TO &4607 [903] 30 FOR a%=&A500 TO &A607 [903] 
40 READ byte$ [603] 40 READ byte$ [603] 40 READ byte$ [603] 
50 POKE a%,VAL("&"+byte$) [938] 50 PORE a%,VAL("&"+byte$) [938] 50 PORE a%,VAL("&"+byte$) (938] 
60 NEXT [350] 60 NEXT [350] 60 NEXT [350] 
70 PRINT [361] 70 PRINT [361] 70 PRINT [361] 
80 PRINT"CHECKSUM v2" [1533] 80 PRINT"CHECKSUM v2" [1533] 80 PRINT"CHECKSUM v2" [1533] 
90 CALL &A500: |ON:NEW [978] 90 CALL &A500: 10ON:NEW [978] 90 CALL &A500:ON:NEW [978] 
100 : [174] 100 : [174] 100 : [174] 
110 DATA 21,09,a5,01,0d4,a5,c3,di [1000] 110 DATA 21,09,a5,01,0d,a5,c3,di1 [1000] 110 DATA 21,09,a5,01,0d,a5,c3,di1 [1000] 
120 DATA bc,00,00,00,00,18,a5,c3 [757] 120 DATA bc,00,00,00,00,18,a5,c3 [757] 120 DATA bc,00,00,00,00,18,a5,c3 [757) 
130 DATA 2a,a5,c3,2£,a5,c3,43,a5 [1681] 130 DATA 2a,a5,c3,2f,a5,c3,43,a5 [1681] 130 DATA 2a,a5,c3,2f,a5,c3,43,a5 [1681] 
140 DATA 4f,ce,4f,46,c6,43,48,45 [1162] 140 DATA 4f,ce,4f,46,c6,43,48,45 [1162] 140 DATA Af,ce,4f,46,c6,43,48,45 [1162] 
150 DATA 43,cb,00,00,cf£,98,aa,c3 [799] 150 DATA 43,cb,00,00,c£,02,ac,c3 [333] 150 DATA 43,cb,00,00,cf,02,ac,c3 [333] 
160 DATA a8,a5,21,27,a5,18,03,21 [1100] 160 DATA a8,a5,21,27,a5,18,03,21 [1100] 160 DATA a8,a5,21,27,a5,18,03,21 [1100] 
170 DATA 24,a5,28,06,cd,00,b9,c3 [1425] 170 DATA 24,a5,28,06,cd,00,b9,c3 [1425] 170 DATA 24,a5,28,06,cd,00,b69,c3 [1425] 
180 DATA 06,dd,11,3a,bd,01,03,00 [923] 180 DATA 4c,cb,11,5b,bd,01,03,00 [1095] 180 DATA 49,cb,11,5e,bd,01,03,00 [1424] 
190 DATA ed,b0,c9,4£,cd,00,b9,0d [1382] 190 DATA ed,b0,c9,4£,cd,00,b9,0d [1382] 190 DATA ed,b0,c9,4f,cd,00,b9,0d [1382] 
200 DATA 28,08,0d4,20,ea,dd,7e,02 [481] 200 DATA 28,08,04,20,ea,dd,7e,02 [481] 200 DATA 28,08,0d,20,ea,dd,7e,02 [481] 
210 DATA 18,04,7b6,11,01,00,cd,a2 [1665] 210 DATA 18,04,7b,11,01,00,cd,a9 [1682] 210 DATA 18,04,7b,11,01,00,cd,a6 [1661] 
220 DATA c1,cd,a3,e7,e5,4e,23,46 [1294] 220 DATA c1,cd,69,e8,e5,4e,23,46 [1382] 220 DATA c1,cd,64,e8,e5,4e,23,46 [812] 
230 DATA 23,5e,23,56,e1,78,b1,c8 [1226] 230 DATA 23,5e,23,56,e1,78,b1,c8 [1226] 230 DATA 23,5e,23,56,e1,78,b1,c8 [1226] 
240 DATA cd,3c,c4,e5,09,e3,cd,63 [1318] 240 DATA cd,75,c4,e5,09,e3,cd,59 [798] 240 DATA cd,72,c4,e5,09,e3,cd,54 [1100] 
250 DATA el,21,a4,ac,cd,7a,a5,el [1223] 250 DATA e2,21,3a,ac,cd,7a,a5,el [1228] 250 DATA e2,21,8a,ac,cd,7a,a5,el [1228] 
260 DATA 18,e2,e5,cd,ba,a5,e3,cd [1468] 260 DATA 18,e2,e5,cd,ba,a5,e3,cd [1468] 260 DATA 18,e2,e5,cd,ba,a5,e3,cd [1468] 
270 DATA 98,a5,cd,96,£2,e3,cd,f6 973) 270 DATA 98,a5,cd,58,f3,e3,cd,f6 [1104] 270 DATA 98,a5,cd,53,£3,e3,cd,£6 [1107] 
280 DATA a5,cd,4e,c3,e1,7e,a7,c8 [738] 280 DATA a5,cd,9b,c3,e1,7e,a7,c8 [1523] 280 DATA a5,cd,98,c3,e1,7e,a7,c8 [1357] 
290 DATA cd,98,a5,cd,4e,c3,18,£5 [1601] 290 DATA cd,98,a5,cd,9b,c3,18,£5 [1069] 290 DATA cd,98,a5,cd,98,c3,18,£5 [1651] 
300 DATA 3a,24,ac,d6,08,47,7e,a7 [1761] 300 DATA 3a,09,ac,d6,08,47,7e,a7 [1172] 300 DATA 3a,09,ac,d6,08,47,7e,a7 [1172] 
310 DATA c8,cd,45,e1,23,10,£7,c9 [1394] 310 DATA c8,cd,22,e2,23,10,£7,c9 [1848] 310 DATA c8,cd,1d,e2,23,10,£7,c9 [1782] 
320 DATA cd,24,a5,f5,c5,d5,e5,cd 1019] 320 DATA cd,24,a5,f5,c5,d5,e5,cd [1019] 320 DATA cd,24,a5,f5,c5,d5,e5,cd [1019] 
330 DATA ba,a5,cd,£6,a5,el,di,ci . [1941] 330 DATA ba,a5,cd,f6,a5,e1l,di1,cl [1941] 330 DATA ba,a5,cd,f6,a5,ei,di,ci [1941] 
340 DATA £1,c9,eb,1b,af,47,67,6£ [1774] 340 DATA £1,c9,eb,1b,af,47,67,6£ [1774] 340 DATA £1,c9,eb,1b,af,47,67,6£ [1774] 
350 DATA 2£,32,23,a5,13,1a,d6,30 [1279] 350 DATA 2f,32,23,a5,13,1a,d6,30 [1279] 350 DATA 2f,32,23,a5,13,1a,d6,30 [1279] 
360 DATA 38,04,fe,0a,38,£6,1a,13 [1209] 360 DATA 38,04, fe,0a,38,£6,1a,13 [1209] 360 DATA 38,94,fe,0a,38,£6,1a,13 [1209] 
370 DATA a7,c8,4£,3a,23,a5,al,fe [1573] 370 DATA a7,c8,4f£,3a,23,a5,al,fe [1573] 370 DATA a7,c8,4f,3a,23,a5,al,fe [1573] 
380 DATA 20,28,£3,79,fe,22,20,07 1570] 380 DATA 20,28,£3,79,£e,22,20,07 [1570] 380 DATA 20,28,£3,79,£fe,22,20,07 [1570] 
390 DATA 3a,23,a5,2£,32,23,a5,3a [1615] 390 DATA 3a,23,a5,2f,32,23,a5,3a [1615] 390 DATA 3a,23,a5,2f,32,23,a5,3a [1615] 
400 DATA 23,a5,a7,79,c4,8a,ff,4£ 1826] 400 DATA 23,a5,a7,79,c4,ab,ff,4f [1559] 400 DATA 23,a5,a7,79,c4,ab,£ff,4£ [1559] 
410 DATA ad,07,6£,09,18,d8,3e,20 791) 410 DATA ad,07,6£,09,18,d8,3e,20 [791] 410 DATA ad,07,6£,09,18,d8,3e,20 [791] 
420 DATA cd,5c,c3,3e,5b,cd,5c,c3 [1002] 420 DATA cd,a3,c3,3e,5b,cd,a3,c3 [1480] 420 DATA cd,a0,c3,3e,5b,cd.a0,c3 [1906] 
430 DATA cd,79,ee,3e,5d,c3,5c,c3 [1170] 430 DATA cd,49,ef,3e,5d,c3,a3,c3 [1389] 430 DATA cd,44,ef,3e,5d,c3,a0,c3 [1650] 
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Zeichnen auf 
die schnelle 
3D-MINI-PAINTER - Grafik für Eilige 


Es gibt CAD-Programme, die weit über 1000,— DM ko- 
sten und vornehmlich für professionelle Anwendungen 
gemacht sind. Dann gibt es spezielle CAD-Programme 
für die CPCs, die zwar leistungsfähig sind, aber auch ih- 
ren Preis haben. Und dann gibt es noch Programme, die 
das Thema CAD so einfach wie möglich, aber gleichzei- 
tig so umfassend wie nötig abhandeln. Zu diesen gehört 
unser Programm 3D-Mini-Painter. Schauen Sie und 
staunen Sie! 


Ob Sie schon immer mal eine neue Generation von Weinglä- 
sern entwerfen wollten, oder Ihnen das SPACE SHUTTLE 
von der Konstruktion her nicht gefällt, ganz egal, mit dem 
3D-Mini-Painter haben Sie die Möglichkeiten, Ihren Ideen 
freien Lauf zu lassen. 

Der Ablauf des Programms ist dabei denkbar einfach und 
schnell erklärt. Menüpunkt I dient zum Erstellen der zu 
zeichnenden Körper. Es ist möglich, zwischen drei- bis acht- 
eckigen sowie runden, symmetrischen Gegenständen zu 
wählen. Nach der Wahl erscheint ein Rechteck, in das Sie die 
eine Seite des Gegenstandes mit Hilfe der Cursor- sowie der 
Leertaste zeichnen können. Aus Gründen der Übersicht ist 
die Anzahl der Punkte, die gesetzt werden können, auf 50 be- 
grenzt. Nach Beendigung der Punktsetzung betätigt man die 
COPY-Taste, um den Zeichenvorgang auszulösen. Ist die 
Zeichnung fertig erstellt auf dem Bildschirm zu sehen, 
braucht man wiederum nur die COPY-Taste zu drücken, um 
in das Hauptmenü zurückzukehren. 

Menüpunkt 2 lädt die unter Menüpunkt 3 abgespeicherten 
Daten eines Körpers und zeichnet diesen. Diese Daten wer- 
den als Zahlen auf Diskette abgespeichert, so daß der Rech- 








DD 





ner sie beim Wiedereinladen als Koordinaten akzeptiert. Me- 
nüpunkt 4 speichert das gesamte Bild auf Diskette ab, dieses 
kann mit weitergehenden Programmen wie Artworx oder 
Zeichenprogrammen weiterverarbeitet werden. Unter Me- 
nüpunkt 5 schließlich läßt sich der Bildschirmmodus ändern. 


Programmänderung möglich 





Falls Ihnen die gegebenen Möglichkeiten an Eckpunkten 
nicht ausreicht, können Sie diese um beliebig viele erwei- 
tern. Sie brauchen dies nur in den entsprechenden Zeilen zu 
tun. Hierzu ein kleines Erweiterungsbeispiel: 


415 PRINT “8) “+ Anzahl der Ecken 
505 IF a$= “8“ THEN ee=360 durch Anzahl der Ecken 


Und nun viel Vergnügen beim Erstellen Ihrer eigenen CAD- 
Grafiken. 


(Volker Nordhoff/jb) 














.o. 
für 464-664-6128 
10 mo=2 [198] 
20 DIM xx(51),yy(51),file$(15) [1292] 
30 MEMORY &3FFF 758} 
40 FOR adr=&A000 TO &AOIF:READ a$:POKE adr [2654] 
„VAL("&"+a$): NEXT 
50 DATA 21,00,C0,11,00,40,7E,12 [1070]} 
60 DATA 23,13,7C,FE,00,20,F7,C9 [792] 
70 DATA 21,00,40,11,00,C0,7E,12 1524] 
80 DATA 23,13, 7A,FE,00,20,F7,C9 1035] 
90 x=168:y=10 [868] 
100 MODE 1:PEN 3:LOCATE 11,3:PRINT"3D MINI [4078] 
-PAINTER":PEN 1 
110 RESTORE 120:FOR t=1 TO 5:READ p$:LOCAT [2131] 
E 8,6+t*2: PRINT p$:NEXT 
120 DATA "1) KOERPER ERSTELLEN","2) KOERPE [7705] 
R LADEN”,"3) KOERPER ABSPEICHERN", "4) BILD 
SCHIRMABDRUCK SPEICHERN", "5) BILDSCHIRMMOD 
US AENDERN" 
130 a$=INKEY$:IF a$<"1" OR a$>"5" THEN 130 [2073] 
140 ON VAL(a$) GOSUB 470,590,660, 750,820 2500] 
150 GOTO 90 [312] 
160 anz=1 323] 
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170 MODE 1:PLOT 158,0,3:DRAW 482,0:DRAW 48 [4136] 

2,398:DRAW 158,398:DRAW 158,0 

180 LOCATE 1,1:PRINT"GESETZTE": PRINT" PUNK 2155] 

rE: 

199.-PLOT7x,y;1 {597] 

200 IF INKEY(O)<>O AND INKEY(1)<>0O AND INK [3648] 

EY(2)<>0 AND INKEY(8)<>0 AND INKEY(9)<>0 A 

ND INKEY(47)<>0O THEN 200 

210 PLOT x,y,O0 598] 

220 IF INKEY{1)=0 AND x<472 THEN x=x+4 1545) 

230 IF INKEY(8)=0 AND x>168 THEN x=x-4 1344] 

240 IF INKEY(O)=0O AND y<390 THEN y=y+4 ı738) 

250 IF INKEY(2)=0O AND y>10O THEN y=y-4 [597] 

260 PLOT x,y,1i 597] 
| 270 IF INKEY(9)=0 AND anz>2 THEN 300 975] 
} 280 IF INKEY(47)=0 THEN IF TEST(x+2,y)=0 T [6479] 
| HEN PLOT x+2,y,2:xx(anz)=x\3:yy(anz)=y\3:G 
| OSUB 740:anz=anz+1:GOSUB 730:IF anz>50 THE 

N 300 

290 GOTO 200 429] 

300 anz=anz-1i 1014] 
Ni 310 GOSUB 730 939} 
| 320 MODE mo:DEG 512] 

330 PLOT 2*{xx{1)-50)*C0OS(12)+320,50+yy(1) [3562] 

*2+(xx(1)-50)/2*SIN(12) 

340 FOR t%=0 TO 360 STEP ee:DRAW 2X (xx{1)- 6087] 





50)*C0OS{t%)+320,50+yy(1)*2+{(xx(1)-50)/2*SI 
N(t%),1:NEXT 
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Tips & Tricks 











350 FOR w%=2 TO anz [919] 
360 p1=0:IF (yy(w%-1)>yy{wX)AND yy(w%+1)>y [9358] 
y{w%)) OR (yy(w&%-1)<yy{w%) AND yy(w&+l)cyy 
(w%)) OR (yy{w%-1)=yy(w%) AND yy(w&#+l)<dyy 
(w%)) OR w%=anz THEN pl=1 
370 IF (xx(w%-1)>xx(wS)AND xx(w&+1)>xx{(w%) [3395] 
) OR (xx(w%-1)cxx{w%) AND xx(wX+1l)<xx{w&%)) 

THEN pl=1 

380 PLOT 2*(xx(w%)-50)*COS(0)+320,50+yy{w% [5453] 

)*2+(xx(w%)-50)/2*SIN(O):FOR t%=0 TO 360 S 

TEP ee 

390 IF pl=1 THEN DRAW 2% (xx(w%)-50)*COS(t% [8253] 

)+320,50+yy(wX)*K2+(xx(w%)-50)/2*SIN(t%) EL 

SE PLOT 2*(xx(w%)-50)*C0OS(t%)+320,50+yy(wX 

)*2+(xx(w%)-50)/2*SIN(t%) 

400 DRAW 2% (xx(w%-1)-50)*C0OS(t%)+320,50+yy [3451] 

(wX-1)*2+(xx(wX-1)-50)/2%SIN(t%),1 

410 DRAW 2*(xx(w%)-50)*COS(t%)+320,50+yy{w [3974] 

%)*2+(xx[w%)-50)/2*SIN(t%) 

420 NEXT:NEXT [1022] 

430 CALL &A000 [637] 

440 LOCATE 1,1:PRINT"[COPY]" [1682] 

450 IF INKEY(9)<>0 THEN 450 [467] 

460 RETURN [555] 

470 MODE 1 506] 

480 POKE &B72A,12:PRINT" GRUNDFORM":PRINT [4784] 

:PRINT"1) DREIECKIG":PRINT"2) VIERECKIG":P 

RINT"3) FUENFECKIG" 

490 PRINT"A) SECHSECKIG":PRINT"5) SIEBENEC [4476] 

KIG":PRINT"6) ACHTECKIG":PRINT"7) RUND"”:PO 

KE &B72A,O0 

500 a$=INKEY$ [278] 

510 IF a$="1" THEN ee=120:G0T0 160 [1759] 

520 IF a$="2" THEN ee=90:G0T0 160 [845] 

530 IF a$="3" THEN ee=72:G0T0 160 [1245] 
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540 IF a$="4" THEN ee=60:G0T0 160 [1580] 
550 IF a$="5" THEN ee=51:G0T0 160 [1211] 
560 IF a$="6" THEN ee=45:G0T0 160 [1505] 
570 IF a$="7" THEN ee=83:G0T0 160 [1476] 
580 GOTO 500 [401] 
590 MODE 1:z$="*.3d":!DIR,@2$:PRINT:INPUT" [3684] 
LADEN!!! FILENAME "‚file$ 
600 OPENIN file$+".3d" [1200] 
610 INPUT#9,ee:INPUT#9,anz [2018] 
620 FOR t=1 TO anz [1330] 
630 INPUT#9,xx(t),yy(t):NEXT [1206] 
640 CLOSEIN [752] 
650 GOSUB 320:RETURN [912] 
| 660 MODE 1:LOCATE 11,5:PRINT"SPE ICHE [4604] 
| R N":LOCATE 10,15: INPUT"FILENAME > file 
[78 
| 670 OPENOUT file$+".3d" [1136] 
| 680 PRINT#9,ee:PRINT#9,anz [1876] 
| 690 FOR t=1 TO anz [1330] 
| 700 PRINT#9,xx(t),yy(t):NEXT [1581] 
| 710 CLOSEOUT [902] 
| 720 RETURN [555] 
| 730 PLOT x,y,2:c=2:RETURN [1177] 
| 740 LOCATE 3,4:PRINT anz:RETURN [1587] 
750 LOCATE 5,20:INPUT"NAME DES FILES ”,n {2107] 
Es 
760 LOCATE 1,20:PRINT STRING$(39,32) [2214] 
770 IF n$=""THEN 750 ELSE n$=LEFT$(n$,8) [1332] 
| 780 MODE mo [433] 
790 CALL &A010 [635] 
800 SAVE n$+".PIC",b,&C000,&4000 [1692] 
810 RETURN [555] 
820 LOCATE 13,20:INPUT"MODE : ",mo [1104] 
830 LOCATE 1,20:PRINT STRING$(39,32) [2214] 
840 IF mo<O OR mo>2 THEN 820 [718] 
850 RETURN [555] 
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PROWORT - Professionelle Textverarbeitung 


für Amstrad Joyce 8256/8512/9512, CPC 6128 


für IBM PC, Atari ST, Commodore Amiga 





PROWORT - das äußerst leistungsstarke 


Textverarbeitungsprogramm 


« unglaubliche Geschwindigkeit und Flexibilität zu dem 
» deutsche Rechtschreibeprüfung kurzfristigen 
» umfangreiches deutsches Handbuch Sonderpreis 
« verschiedene Disketten-Hilfsprogramme von 
» MailMerge-Funktionen usw. j D.M. 199, x 


Englisches Wörterbuch auch erhältlich, zu dem zusätzlichen Preis von D.M. 50,- « 


PROWORT Das menügesteuerte Datei-Management 
FILER System mit einem sehr ausgefeilten Datei- 
Sortier-Programm. Preis: D.M. 89,- x 
PROWORT enthält alle Filer-Optionen sowie auch ein 
OFFICE Faktura-Programm. Preis: D.M. 119,- x 


FILER & OFFICE (mit deutscher Gebrauchsanleitung) arbeiten unter PROWORT 


SONDERANGEBOT - PROWORT & PROWORT FILER D.M. 275,- x 
PROWORT & PROWORT OFFICE D.M. 299,- « 
PROSPELL Rechtschreibeprüfungsprogramm 


(deutsche Version) für LOCOSCORIPT 1. 


V-Scheck anbei 
per nachnahme 


Preis: D.M. 70,- x 


Versand erfolgt: „Unverbindliche 


Preisempfehlung 


Arnor (Deutschland) Ltd. 
Hans-Henny-Jahnn-Weg 21 
2000 Hamburg 76 

Tel: 040 22 49 42 


Die Produkte sind auch 


Software für Kenner... 
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in guten Fachhandel erhältlich. 




















PROWORT (English version 4) 


Prowort is the complete professional word processor for IBM PC 
compatible computers, Atari ST and Amiga - the result of over four 
years of development. Prowort has all the features you would expect 
from a good word processor - many text editing commands, print 
commands, spelling checker and mailmerge. What you might not 
expect though, is the refinement and thought that has been put into 
the program - the logical keystrokes and commands, the clear layout, 
the speed and power ... all go towards making Prowort ideal for the 
novice or the experienced user alike. 


Some quotes from reviews: (Prowort is called Protext in the UK.) 


"Protext is probably tne most powerful word processor on the Atari ST" 
STUSER 





"Protext deserves to be the system by which all other word processors 
are judged ... Arnor has given the market a superb product" 
YOUR COMPUTER 





"Arnor's Protext 4 is Just about unbeatable ... this really is an excellent 
program" PC AMSTRAD 












Prowort includes within it keyboard drivers for 10 languages, including 
English, German and Danish, so all characters are immediately 
available, including ä, ö, ü, A, Ö, U, 8,0,9, 8, €. 


Special Offer: FREE German Dictionary - Save £30! 


Prowort v4 with German and English dictionaries: £90 (normally £120) 









Price includes post+packing. 
Payment by Eurocheque or Mastercard/Visa. 


Amor Lid, 611 Lincoln Road, Peterborough, PE1 3HA. England. 
Tel: 0044 733 68909. 
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Aelessing your micro 5 potential... 
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'#] 51/4"-Laufwerk 


Neu: 


EASI-ART + 
CPC-Trackerball 








ne 


Der Marconi RB2 Trackerball, 
jetzt auch für Ihren CPC. Mit 
eigenem eingebauten Prozes- 
sor. Im Lieferumfang enthalten 
das hervorragende Grafikpro- 
gramm EASI-ART von Micro- 
draw, mit vielen Besonderhei- 
ten und allen notwendigen Uti- 
lities! 
komplett für 





nur DM 298,-- 
Super !! 


#3 Trackerball RB2 + Easie-Art 


+Stop Press fürCPC 
Paketpreis 


. | Druckerkabel CPC’s 39,.- 
| Monitor Verlängerung CPC 29,50 
'#| Zweitlaufwerke für 664, 6128: 
3"-Laufwerk 298,-- 
3,5"-Laufwerk 398,-- 
448,-- 
39,80 
49,80 
39,-- 
39,-- 


448,-- 


| Diskettenbox 3"/3,5" 40 
;] Diskettenbox 3"/3,5" 80 
Joystick Compet. 5000 
Joystick Schneider 
Etiketten: 

70x70 mm, endlos (2008St.) 16,-- 
Abdeckhauben: 
Konsole 464, 664, 6128 
Monitor grün, color je29,80 
5] DMP 2000/3000 je19,80 
:] Flopp. DD1, FD1, Vortex je16,80 
:| Traktor NLQ 401 79,50 
Datenrekorder (664, 6128) 89,-- 
Datenfernübertragung: 
Dataphon 21 S 
Dataphon 21-23 S 
Anschlußkabel 


je19,80 


278,-- 
378,-- 
68,-- 


58,-- 


CPC - 


13" Disk. 94,-- 
']MAXAM « Komplettes Z80 Entwicklungs- 


| EPROM 


Renner ! 


Alles für Ihren 


0] Je 


464, 664, 6128 





für 464/664: 

Speech Synth. (ROM) 
Speech Synth. (Kas.) 
Lightpen (Kas.) 
Lightpen (ROM) 

64k Erweiterung 
256k Erweiterung 
256k Silicon Disk 
Uhrenmodul (neu!) 


148,-- 
98,-- 
68,-- 
98,-- 

168,-- 

348,.- 

378,-- 

128,-- 


dk'tronics Produkte für CPC 


für 6128: 
256k Erweiterung * 
256k Silicon Disk * 


Speech Synth.(ROM) * 


Lightpen (ROM) * 
64k Silicon Disk * 


Uhrenmodul (neu!!) * 
Adapter (alle Module *) 39,-- 


348,.- 
378,-- 
148,-- 
98,-- 

168,-- 
119,-- 








Mastercopy 


Kopierprogramm für Schneider 
CPC. Mastercopy kopiert 

99,9 % aller Disketten!! Mit 
preiswertem Update-Service. 
.3" Diskette für nur 


DM 69,90 








Supercopy 


Das Diskettenkopierprogramm der 
Superlative für den Schneider CPC 
464, 664, 6128 und Joyce! Mit 


Update-Service! 
3"Diskette für nur 


CPC’s 65,-- Joyce 





85,-- 








"4 PROWORT - Textverarbeitung mit Mailmergd 


und Rechtschreibkontrolle « dtsch. Handbuch 


513" Diskette 6128, Joyce (CP/M+) je 219,-- 


PROTEXT für CPC 464, 664, 6128 
EPROM 124,-- 


sytem  Assembler/Disassembler/Monitor 
3" Disk. CPC 464, 664, 6128 94,-- 
124,-- 


MAXAM II 6128, Joyce 239,-- 


:] PROSPELL + Rechtschreibeprüfung für Loco- : 
:] Script deutsche Version) 
:] Deutsches Handbuch für 
:] Protext / Maxam (CPC) 


L_ROMBO Produkte | 


:] ROMBOX für CPC +» ROM-Steckplatzer- 

Ü] weiterung + 8 ROM Steckplätze + ROM’s belegen 
;;] keinen Speicherplatz, somit ist die ROMBOX die 
| ideale Hardwareerweiterung für Sie + mit deutsch. 
:] Anleitung « 


70,-- 


19,80 


CPC 464, 664, 6128 118,-- 


-] VIDI für CPC, Joyce und PC 


« hervorragender Videodigitizer + mit Controller « 


:] mit deutschem Handbuch + 
.ICPC 


348,.- Joyce 378, 


448, 





: DUDEN ITET 
5 fürCPC 


« Steuerung des Computers 
über den Bildschirm « mit 
hervorragendem Grafikpro- 
gramm » ein Muß für jeden 
CPC-Besitzer! 


nur 278,-- 
Handbuch deutsch 


dazu 29,80 


Sta fe :t:1 6:11:72 
SCHLICHTE 


rlaubt Herstellung von 
Zeitungen, Poster und Hand- 
zettel « benötigt 64k Zusatz- 


für CPC 


Mouse 


nur 179,-- 


SEAN MIETEN 


« spanische Maus mit Grafik- 
software ähnlich AMX- 


nur 128,-- 


- Wenn Sie Besitzer eines 
Schneider/AMSTRAD CPC 
und eines DMP 2000 sind, 
haben Sie mit dem Dart- 
Scanner die Möglichkeit, 
Bilder und Grafiken in Ver- 
bindung mit einem kompl. 
Grafikprogramm in den 
Computer einzulesen! Mit 
| deutscher Anleitung | 
für CPC 464, 664, 6128 
nur 249,-- 


Adapter CPC 6128 39,-- 
| 
| BTX-Modul 

a | Jetzt auch für CPC’sl 


SS | » erlaubt den Anschluß ihres 
| CPC’s an den BTX-Rechner 





1.899,-- 
2.199,-- 
2.799,-- 
2.299,-- 
2.599,-- 
3.199,-- 
2.899,-- 
3.199,-- 
3.799,-- 


999,— 
1.299,-- 
1.699,-- 
CPC 6128 grün/color 
799,--/  1.099,-- 
CPC 464 grünvcolor 
399,.- / 699,— 


899,- 
1.399,-- 


|.DMP2160 499,- 
|-DMP3160 599,- 


«DMP4000 899,- 


{Handbücher deutsch 
| Stop Press Joyce 

=] Mini Office II (CPC) und 
] Mini Office Profess. 


| 3" Diskette 


STAR-DIVISION 
Programme für CPC 


STAR-WRITERI 


Textsystem ! 
Textverarbeitung » Adreßver- 


| waltung + Grafikprogramm » 
| DFÜ-Programm » Zeicheneditor « 
| Install-Programm ! 


Möglichkeiten: 


;] Trennvorschläge + Zeilenbreite frei wählbar 
:] * Wordwrap » Blocksatz » Flattersatz » Zen- 
;] trieren » Blockoperationen » Kopf- und Fuß- 
| texte » Suchen und tauschen + Serienbriefe 


« Grafik und Text mischen » u.v.m. 


nur DM 98,- 
DATEI-STAR 


| Das universelle Datenverwal- 
| tungsprogramm für alle CPC- 
:] Rechner ! 
| Egal ob Sie Ihren Verein, Ihre Schallplat- 
2] ten etc. verwalten wollen, DATEI-STAR ist 
:] das richtige Programm dafür | 


.3" Diskette 


nur DM 98,-- 


MAD eingekauft 








PC 1512: 
MD/SD 
MD/DD 


1.399,-- 
1.699,-- 
CD/SD 1.799,-- 
CD/DD 2.099,- 


Port.-PC 512: 
3,5" Laufw. 1.699,-- 
2Laufw. 1.999,-- 
Laufwerke: 
FDI(CPC) 299,-- 
FD2, FD3, FD4, FD5 





AMSTRAD PC 2000 


PC 2086 sp12MD 
PC 2086 sp14cD 
PC 2086 Dp12MD 
PC 2086 po14cD 
PC 2086 HD12MD 
PC 2086 HD14CD 
PC 2286 DD12MD 
PC 2286 pp14cD 
PC 2386 HD12MD 


19,80 


je 29,80 


Grafpad 3 + 64/256 k Erweiterung dk“tronics » 
Mouse Elektrik Studio + Lightpen Elektrik Studio 


14,80 


LQ 3500 29,80 


Neu! 


5] AMX Mouse « AMX Seiten-gestalter + Lightpen 
=] dk“tronics + uvm. 


‚|Farbbänder 
=] NLQ 401 
5] DMP 2000/2160/3000/3160 
LQ 5000 


je 19,80 


Star NL/LCIO 24,80 


19,80 
29,80 


Mini Office Il 


:] Der absolute Renner in Groß- 


britannien. Preisgekrönte Ge- 


speicher bei 464 und 664 
(nur dk'tronicsil) » Sagen- 
hafte Software aus England 


Stop Press 198,-- 


#] Stop Press + AMX Maus 
; 348,-- 


Handbuch deutsch 
dazu 29.80 





Multiface Il 


(Kopierprogramm) 


Vollständige Kopierein- 
richtung für Kassetten und 
Disketten 


DM 178,-- 
Adapter für 6128 39,-- 


| der Bundes-Post | 


398,- 


NIEREN: = 


Kassette 
Diskette 


39,-- 
49,-- 


| 


Kassette 
I 


| Diskette 


49,-- 


schäftssoftware des Jahres 1986 
und 1987! Mitengl. Handbuch 

« Textverarbeitung 

» Datenbank 

« Geschäftsgraphik 

» Etikettendruck 

+ Tabellenkalkulation 


für CPC 464, 664,618 DM 98,-- 


3"-Diskette 


je 449,-- 


DD1 499,-- 
Schnittstellen: 
CPS 8256 (RS232) 
198,-- 
CPC RS232 198,-- 
CPC (RSi.D.) 148,-- 
MP2 129,-- 
Neu!! VGA-Monitore 
PC 12MD 499,-- 
PC 14 CD 999, 


2.499,-- 
2.999,-- 
2.999,-- 
3.499,-- 
3.699,-- 
4.199,-- 
3.899,-- 
4.399,-- 


i CPC-Adventures 


in deutsch ! 

» Diamant von Rabenfels (Graphic) 

» Drachenland (Text) 

» Reise durch die Zeit (Text) 

« Sherlock Holmes (Graphic) 

« Auftrag in der Bronx (Graphic) 

« Insel der Smaragde (Text) 

« Das Pharaonengrab ( 
je Kassette 


je Diskette 


DM 39,-- 
DM 49,-- 


Schaltplanservice 


je 29.80 
29,80 
29.80 
19,80 
19,80 
19,80 
29.80 
19.80 
19,80 

















Joyce-Zubehör 


Schaltplan 8256/8512 
10x83" Disk. CF2 MAXELL 
10x Noname Disk. 

10x 3" Disk. CF2 DD 
Joystick Quickshot Il 
Joyst. Compet. Pro 5000 


29,80 
89,-- 
69,-- 
148,-- 
19,80 
39,80 


Gerdes Maus - RS 232 erforderlich » 


mit Grafikprogramm 

RS 232 (Schnittstelle) 
Diskettenbox (240 Disk) 
Farbband für Drucker 


178,-- 
198,-- 
39,-- 

24,80 


FarbbandfürPCW9512 19,80 


dto. jedoch Textilfarbb. 
Bildschirmfilter (antireflex) 


a.A. 
59,-- 


Alles für Ihren 


Joyce 
PCW 8256, 8512, 9512 


Public Domain Software 





Nr.7: 


CPC+Joyce | Nr.8: 


Über 1000 Public- | Nr& 
Domain Programme 


Jede Disk. 20,- | 


Liste anfordern! | 
(Schriftlich!) 





PD mit deutschem 


CPC Arbeitsbuch 
Cave Adventure 
CPC Disk Utilties 


| Nr.10: BizBasic 

| Nr.11: Basic E-Compiler 
Nr.12: 
Nr.13: Progr. aus Joyce 


Inline Generator 


programmieren 


Nr.19: Telekommunikation 
mit MEX 


Jede Disk. 


Neu: (keine PD) 
WS-Tuner für Word-Star 


nur DM 49,80 


Mehr als 700 Disk. mit 


30,-- 


Elektric Studio 


PCW 8256/8512/9512 


1 Preisgekröntes Zubehör aus Eng- 








* 


Video Digitizer* 348,- 





ed“ 


Handbuch ® 


über 10000 Program- 


Maus* 398,- 


Adapter (*) 


39,-- 


200 Endlosetiket. (7%70) 16,-- 
Verlängerung (Druck 12V) 68,-- 
Typenraddrucker 698,-- 
Druckertreiber 39,-- 


.|Diskettenlaufwerke 
12x80 Tracks » 720 KB» anschluß- 


Nr.1: Pascal-Compiler ® 


(JRT) | 
Z80 Assembler, Dis- | 
assembler und 
Linker 

Interpreter für Lisp 
u. Prolog 


men sofort lieferbar! 
Liste anfordern! 


(Schriftlich!) 
Jede Disk. 8,-- 
PD-10er Blöcke: 


Nr. 2: 


dk'tronics Prod. 


PCW 8256/8512/9512 
Joystick-Controller* 69,-- 


| Nr.14: Prg. CPC-Dateiverw. | 
Nr.15: WordStar-Utilities 
| Nr.16: Literaturverwaltung 


: fertig - Metallgehäuse » 
5 35° 
51/4" 


Software für Joyce ... 


C-Compiler (Small 
o) 

Forth-83 
CPM-Hilfsprogr. 


Supercopy: 
Diskettenkopierprogramm der 





PROWORT 219,-- 
PROSPELL 79,-- 
MAXAM Il 239,-- 


VAN DER ZALM: 


ADRESCOMP 58,-- 
COMFORM 48, 
DATENREM 68... 
ETATGRAF 58. 
FIBUKING 196,-- 
LAGDAT 68,-- 
PROFIREM 136,-- 
VOKABI 58,-- 
FAKTUREM 78,-- 
KALKUREM 78, 


LocoScript2 148,-- 
LocoMail 1 128,-- 
LocoMail 2 211,-- 
LocoSpell2 168,-- 


Verschiedenes: 
Multiplan 198,-- 
DBase Il 198,-- 

:\WordStar 198,-- 


Joyce Neuheiten ! 


Tasword 8000 
Prospell engl. 
Vereinsverwalt. 
Headline 
(Layoutprg.) 
RH-DAT 
(Datenbank) 
Turbo PascalE. 
DR-Graph 
(Grafikprg.) 
DR-Draw 
(Zeichenprg.) 


Datamat (Daten- 


banksyst.) 
Prompt 
(Dateiprg.) 
Prompt Druck 
(Masken) 
MICA (CAD) 
Vokabeltrainer 
Verbentrainer 
Datamat 
Turbo Adress 
Turbo Faktura 
varDat 

Basic Compiler 


Comform Bank,For. 


ComacLitbox 





Superlative für Ihren Joycel 
Mit preiswertem Update- 
Service. 


148,-- 
50,- 
198,-- 


85,-- 


COMAC-Kasse Plus: 
198,-- Komfortable Einnahmen- 
Überschußrechnung. 
98,- 
225,-- 


168,-- 


CARAT-Kasse Plus: 
Einnahmen/Ausgaben Über- 
198,-- schußrechnung. 


168,-- 
198,-- 
m 


99,- 


Schreiblehrgang: 
10-Finger-Schreiben lernen 
auf der Schreiomaschine und 
dem Computer 


69,- 


39,- 
198,-- 
59,- 
49,- 
99,- 
98,- 
148,-- 
199,-- 
139,-- 
59,50 
148 


89,-- 

PSE2: 
Lernen Sie das Periodensy- 
stem der chemischen Ele- 
mente kennen. Ein irres Pro- 
gramm zum Erlernen eines 
"trockenen" Stoffes! 

129,-- 


LETGTLILNELGTG 
Margin Maker ist die Papier- 





Mini Office 
WS EREICHE | 


Das integrierte Software- 
Paket, das selbst hohen 

‘1 Ansprüchen gerecht wird! 
Bestandteile: « 

‘| Textverarbeitung « DFÜ 

:| Datenbank Tabellen- 
kalkulation » Geschäfts- 


3 grafik 
DM 138,-- 


Fleetstreet 

Editor 
Dieses Programm macht 

;] aus Ihrem Joyce eine 
richtige Desktop-Pub- 

I lishing-Maschine. 


DM 198,-- 


Seltengestalter 
-_- Stop Press 
Das sensationelle Pro- 
;] gramm im Bereich des 
‘| Desktop-Publishings für 
"\ Ihren Joyce. Wie viele 
ndere werden auch Sie 





Adapter 


begeistert sein, von der ein- 
fachen Bedienung und den 

kolossalen Möglichkeiten die- 
ses Programms. 


StopPress 
StopPress 
+AMX Maus 378,-- 


AMX-Maus Joyce 


Steuerung des Computers 
über den Bildschirm + Mit 
AMX-Desktop-Programm ® 
Telefonverzeichnis » Notiz- 
buch » Kalender » Papierkorb 


nur 298, 
39,.- 


führung schlechthin. Er ver- 
leiht Ihrem Drucker hervor- 
ragende "Führungseigen- 
schaften". 


nur 39,90 


MasterScan & 
MasterPaint 

Scanner einfach auf Drucker- 
kopf stecken und los geht's! 
MasterScan 
MasterPaint 
Paketpreis 
Adapter 


Desktop Publisher 


Ermöglicht professionelles 

Desktop-Publishing auf 

Ihrem PCW 8256/8512/9512 
für nur 118,-- 

».. kompl. mit AMX-Maus 

348,- 
Deutsche Übersetzung 
zu engl. Programmen 


je 29,80 


178,-- 





für dBase Il 
Nr.17: C-Interpreter - inter- 
aktiv C lernen 
Nr.18: MacroPack / Z80 








Block 1-4 


FISKUS 1987-1988: 
Lohnsteuer-Jahresausgleich 
für alle Iohn- und einkommens- 
steuerpflichtigen Einkommen 
von Arbeitnehmern. Jährliches 
Update gegen Kostenbetei- 


ligung! 139,-- 


STIETETOTE 


Grafik- und Statistikpro- 
gramm ! 

Erstellen von Businessgrafi- 
ken » statistische Auswer- 
tungen » Editierfunktionen « 
menueorientierte Bedienung 
Grafik-Ausdruck auf komplette 
DIN A4- Seite » ausführliche 
Dokumentation 


98,-- 


STAR-MAIL 


Erweiterung von Loco- 
script ! 

Locoscript-Texte können auf 
Frernddruckern ausgedruckt 
werden » Erstellen von 
Serienbriefen « u.v.m. 


98,-- 


Schneider Hardware 


EuroPC MMi12 

Euro PC CM14 

Tower PC 201 MM12 
Tower PC 201 CM14 
Tower PC 202 MM12 
Tower PC 220 MM12 
TargetPC 

PC 2640 MM2640 

PC 2640 EM2640 
Personal FAX SPFi100 


4 Blöcke mit jeweils 10 
hervorragend zusammen- 
gestellten Disketten! 


je 68,- 





Joystick-Contr.+Sound* 
Echtzeituhrenmodul* 
256k Erweiterung 
Adapter (*) für engl. Prod. 


129,- 
129,- 
248,- 

39,-- 





... PCW 8512, 9512 





DATEI-STAR 


Dateiverwaltungs- 

system | 

Einfache Bedienung durch 
PULL-DOWN Menues » frei 
definierbare Eingabemaske » 
1400 Zeichen pro Datensatz » 
frei definierbare Such-, Selek- 
tier- und Druckmaske : frei 
definierbare Listen- und Eti- 
kettendruckmaske » u.v.m. 


98,- 


MAILING-SYSTEM 


Softwarepaket: STAR- 
MAIL + DATEI-STAR I! 


189,-- 


STAR-BASE 


Datenbanksystem |! 
Aufbau: Maskengenerator, 
Druckmaskengenerator, 
Systemdatei, Menuegenera- 
tor, Tastaturanpassung, 
Druckeranpassung, Pro- 
grammkontiguration « PULL- 
DOWN-Menuss » Eingabe- 
maske über 9 Bildschirm- 


Batman 
Strike Force H. 
S.A.S. Raid 
Tomahawk 
Ci. Chess 88 
Colos. Chess 
Football Fort. 
Knight Orc 
Match Day 2 
Witness * 
Colos. Bridge 
Tetris 
Bounder 


1.298,- 
1.798,- 
2.498,- 
2.998,- 
2.798,- 
3.498,- 
5,998, 
4.998,- 
5,998, 
2.398,- 


seiten » 100 Datenfelder 
pro Eingabemaske » 
kompletter Report- 
generator » u.v.m. 


198,-- 


UST ERST 


Auftragsbearbeitung mit: 
» Fakturierung 

» Lagerverwaltung 

« Mahnwesen 

» Datenverwaltung 

» und Dienstprogr. ! 


298,-- 


FIBU-STAR PLUS 


Professionelle 
Finanzbuchhaltung ! 
Einfache Bedienung 
und hohe Absicherung 
gegen Bedienungs- 
fehler » u.v.m. 





298,-- 


LOCO-MERGE 


Serienbrieferstel- 
lung! 





Joyce-Spiele 


59,-- 
69,- 
59,-- 
79,-- 
69,-- 
69,-- 
69,-- 
69,-- 
49,-- 
89,-- 


Bridge Player 
Fairlight 

F.B. Boxing 
PSI 5 Trading 
Blagger/Guard. 
Jewels Darkn. 
Head over Heels 
Pawn 
Wishbringer 
Spellbreaker 
St.D. Snooker 
- Jinxter 

- Forth Protocol 








Tips & Tricks 


Mixed Screens! 


KOMBISCREEN — 
vermischte Bilder 


Und wieder haben wir ein tolles Grafik-Utility für Sie. 
KOMBISCREEN macht aus zwei Bildern eines — und 
das mit recht erstaunlichen Effekten. Einzige Vorausset- 
zung für den Umgang mit KOMBISCREEN ist ein biß- 
chen Übung in der Handhabung dreier Grundelemente 
eines Computers: den logischen Verknüpfungen AND, 
OR und XOR. 


KOMBISCREEN ist ein Grafikprogramm, das dem Grafik- 
freund trotz seiner Kürze eine Reihe faszinierender Möglich- 
keiten eröffnet. Es verwaltet zwei Bildschirme gleichzeitig 
und kann sie in verschiedener Weise miteinander kombinie- 
ren, was zu überraschenden Ergebnissen führt. Es ist menü- 
gesteuert und zudem sehr benutzerfreundlich: Nach jedem 
Fehler, der ein normales Programm unwiderruflich beenden 
würde (wenn Sie z.B. ein Bild einladen wollen und seinen 
Namen falsch geschrieben haben, so daß es auf der Diskette 
nicht zu finden ist), genügt ein Druck auf die kleine ENTER- 
Taste (bzw. auf <ENTER> beim CPC 6128). Sie kehren 
ins Hauptmenü zurück, ohne daß irgend etwas von den bisher 
gespeicherten Daten verloren wäre. Auch können Sie, wenn 
Sie z.B. ein einzuladendes Bild auf einer Ihrer Disketten su- 
chen, den Programmlauf jederzeit mit zweimaligem 
<ESC> unterbrechen, mit <CAT> nach dem gewünsch- 
ten Bild suchen und dann durch <ENTER> wieder ins 
Hauptmenü zurückkehren. 


Die Handhabung des Programmes 





Tippen Sie das Programm ab und starten Sie es mit 
<RUN>, worauf das Hauptmenü erscheint. Seine Funktio- 
nen im einzelnen: 


Laden 

Geben Sie von dem Bild, das Sie in den Speicher laden möch- 
ten, den Namen und, durch Komma getrennt, den MODE ein 
(2, 1 oder 0). Beispiele für solche Bilder werden unten ange- 
geben; Sie können aber auch alle anderen Bilder nehmen, die 
Sie sich schon einmal abgespeichert haben. Die Extension im 





Abb. 1: Die mit Listing 2 erzeugte Pagode läßt sich in verschiedenen Kom- 
binationen mit Bildern mischen, hier ist sie noch solo... 
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Bildnamen (z.B. .BIN) müssen Sie dann mitangeben, wenn 
sich ein anderes Programm gleichen Namens (z.B. ein BA- 
SIC-Programm) auf der Diskette befindet. Das erscheinende 
Bild wird erst durch zweimaligen Druck auf die Leertaste 
(oder eine andere Taste) in den Speicher von KOMBI- 
SCREEN übernommen, und das Hauptmenü erscheint wie- 
der. Erscheint Ihnen das auf dem Bildschirm erscheinende 
Bild für die Weiterarbeit nicht geeignet, so unterbrechen Sie, 
gehen mit <ENTER> wieder ins Hauptmenü und laden ein 
anderes Bild. 

Sie können jetzt auf die gleiche Weise ein zweites Bild dazu- 
laden. Das zuerst eingeladene Bild rückt dadurch im Spei- 
cher an die zweite Stelle. 


Tauschen 

Bei jedem Aufruf dieses Menüpunkts rückt das an zweiter 
Stelle im Speicher stehende Bild wieder an den ersten Platz, 
das andere an den zweiten. Das ist deshalb sehr wichtig, weil 
das an zweiter Stelle stehende Bild immer dann, wenn ein 
drittes Bild dazukommt, gelöscht wird. Sie können mit die- 
sem Menüpunkt also bestimmen, welches der beiden im 
Speicher befindlichen Bilder auch nach dem Entstehen oder 
Dazuladen eines dritten Bildes für die Weiterarbeit noch zur 
Verfügung stehen soll. Außerdem können Sie sich damit je- 
derzeit ansehen, welche beiden Bilder Sie gerade im Speicher 
haben. 


Die Kombinationen 





Für alle folgenden Kombinationsmöglichkeiten gilt, daß das 
auf dem Bildschirm erscheinende Bild erst nach zweimali- 
gem Tastendruck in den Speicher übernommen wird. Es 
empfiehlt sich, vorher erst einmal zu unterbrechen und sich 
auch noch die beiden anderen Kombinationsmöglichkeiten 
anzusehen! 

Kombination durch OR 

Wählen Sie diesen Punkt, so werden die beiden Bilder, die 
Sie im Speicher haben, einfach übereinander gezeichnet; im 
MODE Ound 1 wechselt dabei teilweise die Farbe der gesetz- 
ten Punkte. 


Kombination durch AND 

Hier sind die Ergebnisse weit überraschender. Es werden da- 
bei nämlich nur die Punkte gesetzt, die den beiden Bildern 
gemeinsam sind. Dazu ein interessantes Beispiel. Wir zeich- 
nen uns zunächst mit dem Listing 2 die Form einer gedrunge- 
nen Pagode. Andern Sie nun in diesem Programm in Zeile 





Abb. 2: ...und hier mit einem anderen Bild vermischt. 
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10 die Angabe ORIGIN 126,16 in ORIGIN 127,16, ver- 
schieben Sie also das Bild nur um einen Pixel nach rechts, 
und geben Sie ihm in Zeile 40 einen anderen Namen (z.B. 
“PAGODE2“)! Die Kombination nach AND ergibt hier et- 
was ganz Neues: zwei Türme, die durch dünne Querstangen 
verbunden sind. Mit ORIGIN 285,0 entsteht eine aparte Säu- 
le. Probieren Sie aber auch aus, was für Veränderungen sich 
bei Kombinationen nach OR und XOR ergeben! Sie brauchen 
dazu nur nach dem Erscheinen des Ergebnisses den Pro- 
grammlauf zu unterbrechen, mit <ENTER> zum Menü zu- 
rückzukehren und eine andere Kombination zu wählen. 

Mit der Kombination nach AND können Sie auch Teile aus 
einem fertigen Bild herausschneiden. Zeichnen Sie sich z.B. 
einen ausgefüllten Kreis mit Listing 3. Diesen Kreis kombi- 
nieren Sie nun nach AND mit einem anderen Bild der glei- 
chen Farbe. So erhalten Sie einen kreisförmigen Ausschnitt 
aus dem ursprünglichen Bild. 

Kombination nach XOR 

Hier liegen die interessantesten Möglichkeiten. Bei dieser 
Kombinationsweise werden im MODE? all die Punkte ge- 
löscht, die sowohl im ersten als auch im zweiten Bild gesetzt 
waren (im MODE 1 und 0 ändert sich teilweise ihre Farbe). 
Probieren Sie das mit der Grafik aus, die Listing 4 erstellt. 
Verschieben Sie diese Grafik nach rechts, indem Sie bei ei- 
nem zweiten Durchlauf in Zeile 10 ORIGIN 4,0 einsetzen, 
und den Namen ändern (“FLAECHE2“). Die Kombination 
nach XOR läßt nun auf einmal nur noch die Umrahmung der 
Flächen übrig! Und eine Verschiebung nach links (ORIGIN 
62,0, neuer Name: “FLAECHE3“) ergibt, mit dem Aus- 
gangsbild kombiniert, eine völlig neue, vielfach gemusterte 
Flächenstruktur. 

Die Isolation von Füllflächen 

Eine besondere Fähigkeit der Kombination nach XOR ist es, 
Flächen, die sich beim Ausfüllen eines Bildes mit dem FILL- 











10 'KOMBISCREEN by Fr.Belzner [1724] 

20 MEMORY &21FF:MODE 2:KEY 11,"MODE 2:G0T0 [6753] 
70" +CHR$(13):b=&A200:k=&A224:5=&A20C:t=&A 

235:v=&A218:w=&BB18 

30 FOR x=&A200 TO &A240:READ a$:POKE x,VAL [4176] 
("&"+a$): NEXT 

40 DATA 21,00,c0,11,00,22,01,00,40,ed,bO,c [2005] 

9,21,00,22,11 

50 DATA 00,c0,01,00,40,ed,b0,c9,21,00,62,1ı [1974] 

2,00,60,01,06 

60 DATA 40,ed,b0,c9,21,00,c0,11,00,62,1a,b [2843] 

6,77,13,23,3e 

70 DATA 00,6bc,20,f6,c9,21,00,22,11,00,62,0 [3145] 
1,00,40,ed,b0,c9 

80 PRINT"(1) Laden":PRINT"”(2) Tauschen":PR [13423] 

INT"(3) Kombi: OR":PRINT"(4) Kombi: AND":P 

RINT"(5) Kombi: XOR":PRINT"(6) Speichern": 

PRINT:INPUT"Ihre Wahl]? ",z 

90 ON z GOTO 100,110,120,130,140,150 1485) 
100 MODE 2:INPUT"Name, Mode: ",n$,m:MODE m [4192] 
:LOAD n$,&C000:G0TO 160 

110 MODE m:CALL v:CALL t:CALL b:CALL w:GOT [1313] 

o 80 

120 MODE m:CALL s:POKE &A228,&B6:CALL k:GO [2467] 

TO 160 

130 MODE m:CALL s:POKE &A228,8&A6:CALL k:GO [2289] 

To 160 

140 MODE m:CALL s:POKE &A22B,&AE:CALL k:GO [2455] 

TO 160 

150 CALL sS:LOCATE 1,1:INPUT"Name? ",‚n$:CAL [5039] 
L s:SAVE n$,B,&C000,&4000:MODE 2:G0T0 80 

160 CALL w:CALL w:CALL t:CALL b:GOTO 80 [1093] 

as 

5 'Bild 1: PAGODE {1397] 
10 MODE 2:O0RIGIN 0,0:PRINT CHR$(23)CHR$(1) [3313] 
: TAG: F$=STRING$(20,181) 

20 p=92:x=2:y2=3868:G0OSUB 30:SAVE"PAGODE.BI [3321] 
N",B,49152,16384:END _ 

30 ORIGIN 126,16 {436)} 
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Befehl ergeben haben (nur möglich bei CPC 664 und 6128), 
vom übrigen Bild zu trennen. Dazu ein besonders interessan- 
tes Beispiel. Lassen Sie mittels des Listings 5 einen sich stän- 
dig ändernden Strahl über den Bildschirm wandern. Kombi- 
nieren Sie nun dieses Bild mit dem vorherigen, dem Aus- 
gangsbild, über XOR! Wenn Sie das Bild umdrehen,entsteht, 
die von drohenden Mauern flankierte Figur eines zerrissenen 
Trümmerkegels — eine eindrucksvolle Grafik, die Sie auf 
keine andere Weise erhalten Könnten. 

Auch Kombinationen völlig verschiedener Bilder nach AND 
und XOR sind möglich. Kombinieren Sie die PAGODE mit 
den STRAHLEN nach AND: Ein reizvolles, im Nebel auf- 
tauchendes Turmgebilde ist das Ergebnis. 


Für all diese Kombinationen gilt: Erst nach Druck auf die 
Leertaste wird das entstandene Ergebnis in den Speicher 
übernommen und das vorher an zweiter Stelle stehende Bild 
gelöscht. Das Ergebnis kann dann mit einem neuen Bild, das 
man dazulädt, weiter kombiniert werden. Gefällt es aber 
nicht, so unterbricht man den Programmlauf, geht mit <EN- 
TER> ins Hauptmenü zurück, hat nach wie vor die beiden 
ursprünglichen Bilder im Speicher und kann eine andere 
Kombination probieren. Kann es noch bequemer gehen? 


Speichern 

Hier brauchen Sie nur den Namen für das neu entstandene 
Bild einzugeben (maximal acht Buchstaben, ohne Exten- 
sion). Sollten Sie eine Diskette eingelegt haben, die schon zu 
voll ist, so ist trotz des Programmabbruchs mit “Disc full 
in...“ nichts verloren: Wechseln Sie die Diskette und gehen 
Sie mit <ENTER> erneut ins Hauptmenü. 

Viel Spaß beim Jonglieren mit den Bildern wünscht Ihnen 
Ihre PC International. 


(Friedrich Balzner/jb) 
































40 FOR y=10 TO y2 STEP 2:IF y MOD 50=0 THE 
N p=p-18 

50 MOVE x-p/2,y:PRINT f$; :MOVE 
NT f$;:NEXT y:RETURN 


[3403] 







x+p/2,y:PRI [3700] 


5 'Gefuellte Kreisflaeche fuer AND-Kombina [4088] 
tion 

10 MODE 2:DEG:a=320:b=200:r=100:G0SUB 20:E [3217] 
ND 

20 n=INT(PI*SQR(r)+1):sn=SIN(360/n):cs=COS [3084] 
(360/n) 

30 x=r:y=0:MOVE atr,b:FOR i=1 TO n 1182937 
40 xx=x*cs-y*ksn:y=xXsn+ty*cs:x=xx:DRAW a+x, [3240] 
b+y:NEXT 

50 MOVE a,b:FILL 1:RETURN [2275] 


5 ‘Bild 3:FLAECHEN [2392] 
10 MODE 2:O0RIGIN 0,0:PRINT CHR$(23)CHR$(L) [1545] 
: TAG 

20 z=21:s=-2:x=154:y1=398:y2=136:G0SUB 50: [5249] 
2=42:x=74:y1=374:y2=350:GOSUB 50 

30 x=164:y1=322:y2=288:G0OSUB 50:x=248:y1=2 [3931] 
60:y2=220:G0SUB 50 

40 SAVE"FLAECHEN.BIN",b,49152,16384:END [1947] 
50 f$=STRING$(Z,232):FOR y=yl TO y2 STEP - [4388] 
2 _ 

60 MOVE x,y: PRINT f$;:MOVE x+5,y:PRINT f$; [3199] 


ıx=x+2:NEXT y:RETURN 


[1306] 
[3516] 


5 ‘Bild 4: STRAHLEN 
10 MODE 2:n=1:O0ORIGIN 320,200:DEG:rx=400:ry 
=400:FOR w=90 TO 450 STEP 0.5 


20 MOVE 0,0:MASK m:DRAW rx*SIN{(w), ry*COS({w [2263] 
):IF m=0O THEN n=1 

30 IF m=255 THEN n=-1 [1199] 
40 m=m+n:NEXT [174] 

50 SAVE"STRAHLEN.BIN”",B,49152,16384 [1764] 
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Tips & Tricks 


Drucker oder 
Schnecke”? 


SPOOL - Druckerspooler 
unter CP/M 2.2 


Es stimmt schon, die Überschrift ist auf den ersten Blick 
etwas irritierend. Aber sind Sie richtig zufrieden mit Ih- 
rem Drucker, oder sind Sie gar einer der unglücklichen 
CPC-User, die über keinen Laserdrucker verfügen? 
Dann gehören Sie sicherlich zum Kreis derjenigen, die 
beim Ausdruck einer DIN-A4-Seite in NLQ-Qualität zu 
einer Kaffeepause gezwungen sind. Nun gut, also höch- 
ste Zeit, das Druckkonzept Ihres CP/M 2.2 Systems et- 
was zu tunen... 


Benötigt wird lediglich ein CP/M-Texteditor, ein 
8080-Assembler und ein entsprechender Linker. Letztere 
finden Sie unter den Namen ASM.COM und LOAD.COM 
auf der zu Ihrem System mitgelieferten CP/M-Diskette. Auf 
den ebenfalls auf dieser Dikette befindlichen CP/M-Zeilen- 
editor namens ED.COM bitte ich Sie zugunsten eines Text- 
verarbeitungsprogrammes ä la Wordstar oder ähnlichem 
doch zu verzichten, es sei denn, Sie entdecken gewisse 
selbstquälerische Züge an sich. 


Die Funktionen des Programms 





Bevor Sie sich auf nachfolgendes Assemblerlisting stürzen, 
bitte ich Sie, Ihre Lieblingsdisketten in Sicherheit zu brin- 
gen, da nachfolgendes Programm intensiv von Intimberei- 
chen Ihres CPCs Gebrauch macht, und eventuell ein Tipp- 
fehler genügt, nicht nur Ihr System, sondern auch das Disket- 
tenlaufwerk zu ungewöhnlichsten Aktionen zu veranlassen. 
SPOOL ist ein Variables Drucker-Spoolprogramm. Das 
heißt, Zeichen, die über die BIOS Funktion 3 an den Drucker 
gesandt worden sind, werden in einem als Ringpuffer organi- 


sierten Bereich zwischengespeichert. Der eigentliche Druck- 
vorgang wird dann per Interrupt alle 1/50 Sekunden ausge- 
führt, wobei versucht wird, bis zu 16 Zeichen zu senden, da- 
mit auch ein schneller Drucker gut versorgt bzw. ein im 
Drucker vorhandener Puffer möglichst optimal ausgeschöpft 
wird. Die Routinen, die diese Steuerung übernehmen, finden 
im BIOS-Stack Platz. Wohin aber mit dem Pufferbereich? 
Für den Pufferbereich bietet sich zunächst einmal der ohne- 
hin unter CP/M meist nutzlose Soundpuffer an. Leider ist 
dieser Bereich nicht besonders groß, aber besser ein kleiner 
Puffer als überhaupt keiner, was nachfolgende Benchmarks 
noch belegen werden. Was gibt es sonst noch für Alternati- 
ven? Nun, prinzipiell ist die Startadresse des Pufferbereichs 
und die Länge durch die Konstanten BLENGTH und BBASE 
im Assemblerlisting frei wählbar. Aus “Interruptgründen“ 
muß sich der Pufferbereich aber im zentralen RAM (Adresse 
04000H - OBOOOH) befinden. Leider kollidiert ein wahllos in 
diesen Bereich plazierter Puffer mit so ziemlich allem, was 
da unter CP/M Rang und Namen hat, nähmlich BDOS, 
BIOS, Firmware und nicht zuletzt mit diversen Anwender- 
programmen. Ohne spezielle Vorkehrungen geht hier also 
nichts. Eine mögliche Vorkehrung besteht beispielsweise 
darin, den TPA-Speicher zu verkürzen. Keine Angst, Word- 
star, Turbo Pascal usw. verkraften eine Verkürzung in Ma- 
ßen ohne weiteres. Verkürzen wir also den TPA-Bereich um 
IK. Konstruieren Sie hierzu mit MOVCPM.COM zunächst 
ein 43k TPA-CP/M System mit MOVCPM 175 * ‚danach si- 
chern Sie dieses durch Eingabe von SAVE“CPM43.COM“ 
und übertragen das neue System anschließend mit SYSGEN 
CPM43.COM auf die Systemspur. Nun steht IK ab Adresse 
A933 für unseren Spooler zur Verfügung. Um den SPOO- 
LER entsprechend zu konfigurieren, ändern Sie bitte die Zei- 
len 27 und 30 im Assemblerlisting entsprechend ab (BBASE 
= (A9Y33H, BLENGTH = 00400H). So, bevor Sie nun los- 
legen, noch die Ergebnisse einiger Tests, damit Ihnen das 
Abtippen leichter fällt. Die Zeiten wurden übrigens mit ei- 
nem Schneider DMP 2000 ermittelt. 


ohne SPOOL SPOOL() SPOOL(2) 


2K Text Normal 26 sec. 20 sec. 14 sec. 
4K Text Normal 66 sec. 58 sec. 47 sec. 
2K Text NLQ 103 sec. 65 sec. 23 sec. 
(1) SPOOL mit Soundpuffer 
(2) SPOOL mit verkürzter TPA 
(Bernd Ott/jb) 








an 464-664-6128 = 


PEPPERS SEPLELLLLLE EEE Eee 
SPOOL VERSION 1.0 
(c) 1988 BY BERND OTT 






x 
%* * 
;* * 
;* Variabler Ringpuffer fuer Druck- * 
* ausgabe S 
* * 
* 

* 


;* Speicherbereich BEC8H - BF2FH 


RR EEE EEK ER 
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ORG 0100H 

ADDR EQU OBECSH ; Lage der Routine im 
Bios Stack 

VERS EQU 0BD62H ; Versatz 

BDOS EQU 00005H ; Bdos Einsprung 

BIOS EQU 00000H ; Bios Einsprung 

TICK EQU OBCEIH ; Block in Tickerliste 
einhaengen 

BUSY EQU OBD2EH ; Drucker empfangs- 
bereit? 

SEND EQU OBD31H ; Zeichen drucken 

FIRM EQU 0C168H ; Firmware Einsprung 

Listing Drucker Spooler 
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BBASE EQU 


BLENGTH EQU 
INIT DI 

LXI 
LXI 
LXI 
DW 

LXI 
LXI 
LXI 


CALL 
LHLD 


LXI 
DAD 


LXI 
MOV 
INX 
MOV 
LXI 


MVI 
CALL 
EI 
RET 


LOGONS DB 


DB 
DB 


Br. 


ICKB DW 
DW 
DW 
EVBLOCK DW 
DB 
DB 


DW 
RPOINTER DW 


WPOINTER DW 
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0B2B6H 


O01DFH 


H,TICKB 
D,ADDR 
B,ENDE-TICKB 
OBOEDH 
H,ADDR 
D,O0001H 
B,00001H 


FIRM 
TICK 
BIOS+i 


D,O0000DH 
D 


D,WBUFFER+VERS 
M,E 

H 

M,D 

D,LOGON$ 


c,009H 
BDOS 


'(e) 1987/88 by Bernd Ott 
v1.0 installed' 


00DH 
5: 


00000H 
00000H 
00000H 
00000H 


000H 

081H 
RBUFFER+VERS 
00000H 


000008 


- ses 


CPC 464/664/6128 
CP/M 2.2 

EQU 0C168H 
CP/M 2.2 62K 

EQU OFACFH 
cP/M 3.0 

EQU OFC5AH 


Druckpuffer im 
Soundpuffer 
cPC 664/6123 
0B2B6H - 0B495H 
CPc 464 
OB61AH - OBTIFFH 
Pufferlaenge 


Routine verschieben 


Z80 LDIR 


Countdownwert 
Nachladewert 
1/50 Sek.) 


(alle 


Routine installieren 
BIOS Sprungadresse 
nach HL 


BIOS Sprungadresse 
+ 13 = BIOS List 
BIOS List patchen 


Einschaltmeldung 
ausgeben 


Zurueck ins CP/M 


SPOOL 


Kettungspointer 

Countdownwert 

Nachladewert 

Kettung Pending 
Queue 

Counter 

Klasse 

Adresse der Routine 


Schreibzeiger fuer 
Puffer 

Lesezeiger fuer 
Puffer 


AUTORISIERTER FACHHÄNDLER DER MARKEN: 





TPUTER BIFISION 








AMSTRAD 
AMSTRAD 
AMSTRAD 
AMSTRAD 
AMSTRAD 
AMSTRAD 
AMSTRAD 
AMSTRAD 
AMSTRAD 


PPC 512 
CPC 464 
CPC 6128 
PCW 8256 
PCW 9512 
DMP 2160 
DMP 3160 
PC 1512 
PC 1640 














Rufen Sie uns anl 





















Schneider star‘ VICTER 
a SC sa: COMPUTER 


Wir führen alle Artikel der oben genannten Hersteller! Rufen Sie uns an! Fragen 
Sie nach unserem Preis! Wir liefern sofort ab Lager! Schnellieferung per UPS! 


Schneider EURO PC Victor Vicky 
Schneider TOWER PC Victor VPC II 
Schneider EGA AT Victor V286C 
Schneider LQ 3500 STAR LC 10 
Floppy DDI 1 STAR LC 10 CL 
Floppy FD 1 STAR NX 15 
Modulator MP 1 STAR ND 10 
Modulator MP2 STAR NR 15 
Disketten 3 Zoll STAR NB 24-10 


Farbbänder und Zubehör! ‚Disketten FUJI 


und MAXELL ab LAGER. 


Fragen Sie nach unserem aktuellen Preis! 


unikat COMPUTERVERTRIEB 
POSTFACH 15 53 - 


D - 3040 SOLTAU 


TEL. (0 5191) 13244 - TAG UND NACHT 









Be 
WBUFFER LHLD WPOINTER+VERS 
INX H 
LXI D, BLENGTH 
CALL CMPHLDE+VERS 
INZ WBUFFER1+VERS 
LKI H,00000H 
WBUFFER1 DW O5SBEDH 
DW RPOINTER+VERS 
CALL CMPHLDE+VERS 
J2 WBUFFER+VERS 
SHLD WPOINTER+VERS 
LXI D,BBASE 
DAD D 
MOV M,c 
STC 
RET 
RBUFFER MVI B,OOFH 
RBUFFER1 LHLD RPOINTER+VERS 
DW O5BEDH 
DW WPOINTER+VERS 
CALL CMPHLDE+VERS 
RZ 
CALL BUSY 
RC 
INX H 
LXI D,BLENGTH 
CALL CMPHLDE+VERS 
JINZ RBUFFER2+VERS 
LXI H,00000H 
RBUFFER2 SHLD RPOINTER+VERS 
LXI D,BBASE 
DAD D 
MOV A,M 
CALL SEND 
DCR B 
INZ RBUFFER1+VERS 
RET 
CMPHLDE MOV A,L 
CMP E 
RNZ 
MOV A,H 
CMP D 
RET 
ENDE END 
Listing Drucker Spooler 









Schreibzeiger nach 
HL 

Schreibzeiger + 1 

Pufferlaenge nach DE 

Schreibzeiger = 
Pufferlaenge 


ja, dann Schreib- 
zeiger = 0 
Lesezeiger nach DE 
(Z80 LD DE,RPOINTER) 
Puffer voll 
ja, dann von vorn 
Schreibzeiger 
sichern 
Pufferbasis holen 
Pufferbasis + 
Schreibzeiger 
Zeichen in Puffer 
schreiben 


Schleifenzaehler = 
15 

Lesezeiger holen 

Schreibzeiger holen 

(280 LD DE,WPOINTER) 


Schreibzeiger = 
Lesezeiger ? 
dann ist Puffer 
leer, Aussprung 
Drucker bereit? 
nein, dann Aussprung 
Lesezeiger + 1 
Pufferlaenge nach DE 
Lesezeiger= maximale 
Pufferlaenge 


ja, 


dann Lesezeiger 

=0 

Zeiger sichern 

Pufferbasis laden 

Pufferbasis + 
Lesezeiger 

Zeichen aus Puffer 
holen 

Zeichen ausgeben 


ja, 


HL = DE ? 


Ende SPOOU 








I Göddeker Computer und Zubehör GmbH 


Herstellung - Impart . Export - Großhandel 
Höftestraßs 32 - D-4400 Münster 24 - Telefon 0251/61 9881 


BIETDAISTTEELNEITEIRT TE 


80286-12CPU, 8/12 MHz mit O-waitstate, 


Gi 





BLINGERICE Gi 
CPC-464/664/6128-Software 


« Telex 892 160 











8 Steckplätze für Erweiterungen vorhanden, 
80287-Coprozessor-Steckplatz vorhanden, 
batteriegepufferte Echtzeituhr, 1,0 MByte 
RAM (erweiterbar bis 4,0 MByte), Mono- 
graphic-Card (Herkules-komp.), FD/HD- 
Controller, 1,2 MByte/5,25“Diskettenlaufwerk, 
20-MByte-Festplatte, 200 Watt-Netzteil, deut- 
sche DIN-Tastatur mit abgesetztem Cursor- 
block, Turbo- und Reset-Taste, 14*-Mono- 
chrom-Monitor (bersteinfarbige Anzeige) im 
modernen Flath-Design, MS-DOS 3.30, GW- 
Basic und inklusive Maus. 





L Technische Änderungen bei allen Artikeln vorbehalten. 


(nur auf 3°-Diskette), Komplettprogramm mit folgenden Einzelpro- 


grammen: Adressenverwaltung, Videodatei, Musikarchiv und als 
Bonus eine Vereinsverwaltung mit Lastschriftausdruck. Die Pro- 
gramme sind alle in Deutsch und über eine Bedienerführung im 
Menüstil anzuwählen. Deutsche Umlaute (ä,ü,ö,8) sind selbstver- 
ständlich. 





JE IC 

3,0“ 10 St. 100 St. 
PEGASYS CF-2 55,- 500,- 
PEGASYS CF-2-DD 85,- 750,- 
3,5“ 10St. 100 St. 
Neutrale MF-1-DD 26,- 245,- 
Neutrale MF-2-DD 29,- 260,- 
5,25* 10St. 100 St. 


Neutrale MD-2-D 799 75- 


7 4711-1 Bu 





Diskettenboxen 15,90 
PEGASYS YA-3580-L mit Schloß und Ersatzschlüssel für 80 Stück 
3,5“- oder 3“- Disketten. 

Monitorständer 25,- 
PEGASYS MS-14 für alle Monitore bis 14“. Mit Feststellschraube, 
dreh- und schwenkbar. 


Alle Preise sind unverbindlich. Der Versand erfolgt per Nachnahme oder Vorkasse per Euroscheck zuzüglich Versandkosten. 
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100,—- DM für 1KB 


Die Herausforderung 





Und schon geht es in die nächste Runde mit unserem 
Wettbewerb. Wieder haben wir vier Beiträge herausge- 
sucht, die wirklich ihr Geld Wert sind. Es ist schon er- 
staunlich, was man aus dem BASIC des CPC heraus- 
quetschen kann. Und für diejenigen unter Ihnen, die mit 
der Programmierung nicht auf so gutem Fuße stehen, 
heißt es wieder abtippen und speichern. Sie werden se- 
hen, daß eine Programmsammlung mit kleinen Pro- 
grammen genauso reizvoll sein kann, wie eine große 
Software-Bibliothek. Und nun wieder viel Spaß mit un- 
seren ’Shorties’. 


1. Programm: HYPERTEXT 
Als erstes Programm möchten wir Ihnen ’HYPERTEXT’ 
vorstellen. HYPERTEXT ist eine Textverarbeitung, die Zei- 
chen setzt! 
HYPERTEXT hat eine Reihe von Vorteilen gegenüber kom- 
plexeren Textverarbeitungen: 
— kein umständliches Blättern in dicken Handbüchern, 
— keine undurchsichtigen Tastenbelegungen, 
— unkomplizierte Menüwahl, 
— ist ca. zehnmal schneller in den Speicher geladen, 
— der ganze Bildschirm kann zur Texteingabe genutzt 
werden, 
— arbeitet mit Diskette und Kassette, 
— läuft mit und ohne Speichererweiterung, 
— paßt sich automatisch an jeden Drucker an, 
— kann mehr Textseiten verarbeiten und speichern, 
— Texte können aneinander gereiht werden, 
— druckt auf Endlos- und Einzelpapier und ist speicherplatz- 
schonend auf Diskette und Kassette! 

Es wird im 80-Zeichen-Modus gearbeitet, und die Original- 
Tastenbelegung bleibt erhalten. Zeichen können mit 
<DEL> gelöscht werden. Durch Drücken von <COPY> 
gelangt man in das Menü mit den Punkten: 
Laden (L), Saven (S), Mergen (M) und Drucken (D). 
Es ist wohl nicht vermessen zu behaupten, daß HYPER- 
TEXT zu den besten Textverarbeitungen zählt, die es im 
1KB-Bereich für den CPC gibt, oder? 
Noch eine Anmerkung: Um eine Leerzeile zu erreichen, muß 
man mindestens dreimal die Leertaste und dann erst ENTER 
drücken. Wenn man bei der File-Eingabe nur ENTER 
drückt, werden die Files auf Diskette bzw. Kassette ange- 
zeigt (CAT). 

(Thorsten Mertsching/jb) 


2. Programm: SENSO 

Das nächste KUK-Programm (KUK = Kurz Und Knackig) 
ist eine Version des berühmten SENSO-Spieles. Der CPC 
gibt Ihnen eine Reihe von vier Farben vor, die nacheinander 
aufblinken und dazu einen Summton erklingen lassen. Ihre 
Aufgabe ist es nun, diese Farben in der Reihe ihres Auftre- 
tens zu wiederholen. 

Am Anfang fragt der CPC nach dem Tempo, welches am be- 
sten zwischen 0 und 500 eingegeben wird. Da die Tempoein- 
gabe als Ende einer Warteschleife zählt, kann man also belie- 
bige Zahlen wählen, danach beginnt sofort das Spiel. 
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NM 45193866 | 


Erst blinkt eine Farbe auf, mit Hilfe der CURSOR-Tasten ge- 
ben Sie diese ein: _ 
ROT = Links; GRUN = Oben; GELB = Rechts; BLAU = 
Unten 
Genauso erscheinen diese auch auf dem Bildschirm. Nach je- 
der richtig eingegebenen Reihenfolge wird diese wieder vor- 
gegeben, am Ende wird jedoch eine Farbe mehr angehängt. 
Aber aufgepaßt! Manchmal erscheint eine Farbe mehrmals 
hintereinander, wobei allerdings der Summton, der bei jeder 
Farbe verschieden ist, zu Hilfe kommt. Wer meint, das schon 
zu können, kann das Programm langsam ablaufen lassen und 
versuchen, nur nach dem Gehör zu spielen. Wer jedoch eine 
falsche Reihenfolge eingibt, als die, die vorgegeben wurde, 
hat verloren, danach erscheint eine Punktewertung. 

(Dirk Weinrich/jb) 


3. Programm: DICHTER 
Das nächste Programm ist etwas für humorvolle Gemüter. 
DICHTER hält nicht das, was er verspricht. Im Gegenteil, 
vertrauen Sie ihm keinen Text an. Was, Sie wollen es trotz- 
dem versuchen? Na gut, keiner soll sagen, wir hätten Sie 
nicht gewarnt! 
Aber, Spaß etwas beiseite, DICHTERS Aufgabe ist es, einen 
eingegebenen Text dermaßen zu ‘verhunzen‘, daß der eigent- 
liche Sinn nur noch dem Autoren des Textes bekannt ist. 
Nach der Eingabe eines beliebigen Textes werden Sie ge- 
fragt, nach welcher Ordnung der bestehende Text ’verhack- 
stückt’ werden soll. Damit ist folgendes gemeint: DICHTER 
nimmt sich die Silben oder Worte des Textes vor und setzt 
Sie nach einem Zufallsalgorhythmus wieder zusammen. Das 
Ergebnis kann sich meistens sehen lassen; der ursprüngliche 
Text wird auf eine dermaßen unsinnige Art wieder zusam- 
mengesetzt, daß Sie Ihre helle Freude an dem kleinen Pro- 
gramm haben werden. Als kleinen Partyspaß kann man unse- 
ren 'textfressenden’ DICHTER bestimmt einsetzen, der La- 
cherfolg ist programmiert. 

(Joachim Mreyen/jb) 


4. Programm: MICROSYMB 

Programm Nummer 4 schließlich ist ein Miniatur- Symbol- 
generator namens MICROSYMB. Die Bedienung des Pro- 
grammes ist recht einfach: Mit den Cursortasten steuert man 
eine Markierung innerhalb der 8*38 Zeichen großen Matrix. 
Per COPY-Taste setzt bzw. löscht man einen Punkt. Parallel 
zum Setzen/Löschen der Punkte entsteht links neben der Ma- 
trix das Symbol in Originalgröße. Rechts neben der Matrix 
sind die Daten des entstandenen Symbols abzulesen. Diese 
können für eine eventuelle spätere Nutzung notiert werden. 
Durch Drücken der SPACE-Taste erreicht man ein vollstän- 
diges Löschen der Matrix. Das aktuell erstellte Symbol ist 
automatisch als Zeichen Nr. 253 des Zeichensatzes definiert. 
Das war es schon, doch jetzt noch ein paar Anregungen: 
Durch Ausgabe der Symboldaten auf den Drucker können 
Sie sich das Abschreiben ersparen. Versuchen Sie, doch 
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selbst das Programm so zu erweitern, daß man bei Bedarf nur 
noch die Nummer des gewünschten Zeichens eingeben muß 
und darauf die vergrößerte Matrix des Zeichens zum Editie- 
ren bereitgestellt wird. Sollten Sie dies geschafft haben, ist es 
empfehlenswert, nicht mit den Zeichen 49 bis 57, 143, 254 
und 255 zu experimentieren der Grund ist wortwörtlich er- 
sichtlich! 

(Jens Budinger/jb) 


Die Bedingungen 
Hier noch einmal die Bedingungen unseres Wettbewerbs: 
Wir suchen komplette Programme, die funktionsfähig mög- 


lichst auf allen drei CPCs laufen, was nicht heißen soll, daß 
wir bei besonders guten keine Ausnahme machen. Ihr Pro- 
gramm darf nicht länger als 1 KByte sein; es gilt die Anzeige 
auf dem Datenträger!! Der Preis für solche Programme be- 
trägt DM 100,—. Senden Sie uns Ihr Programm auf Daten- 
träger mit Programmbeschreibung, möglichst in ASCIH- 
Form mit auf dem Datenträger, zu, und zwar an den 


DMV-Verlag 
Fuldaer Str. 6 
Stichwort 100,— DM 
3440 Eschwege 





für 464-664-6128 





10 MODE 2:INK 0,3:DIM z$(600):2=1:m$="1=L 
2=5 3=M 4=D":k$=CHR$(199):r$=CHR$(8): PRINT 


k$;r$;' by THOM SOFTWARE 
20 a$=INKEY$:IF a$="" THEN 20 ELSE a=ASC(a 
$):IF a=32 THEN 60 ELSE IF a=127 THEN IF L 
EN (2$(z))>1 THEN z$(z)=LEFT$(Z$(z),LEN(z$ 
(z))-1):a$="":PRINT r$;k$;" ";STRING$(2,8) 
;:G0OTO 20 ELSE 20 

30 c=0:IF a=224 THEN a$="":MODE 1:PRINT m$ 
WHILE c<1 OR c>4:c=VAL(INKEY$):WEND:IF c= 
1 THEN GOSUB 90:2=0:G0SUB 110:G0T0 100 
40 IF c=2 THEN GOSUB 90:0PENOUT""+n$: FOR i 
=1 TO z:PRINT#9,z$(i):NEXT:CLOSEOUT:GOTO 1 
00 ELSE IF c=3 THEN GOSUB 90:G0SUB 110:G0T 
© 100 ELSE IF c=4 THEN FOR i=1 TO z:PRINT# 
8,2$(i):NEXT:GOTO 100 
50 IF a=13 THEN PRINT” ":GOTO 120 
60 IF LEN(z$(2))+1>80 THEN 120 

70 z$(z)=z$(z)+a$ 
80 PRINT a$;k$;r$;:G0TO 20 
90 INPUT"Name:"”,n$:IF n$="" 
&BB0O4 ELSE RETURN 
100 MODE 2:FOR i=1 TO z:PRINT z$li):NEXT:P 
RINT k$;r$;:GOTO 20 

110 OPENIN""+n$:WHILE NOT EOF:z=2+1:LINE I 
NPUT#9,2$(z):WEND:CLOSEIN:RETURN 

120 2$(z2)=2$(z)+r$:2z=2+1:G0TO 80 


[8650] 


[6016] 


[8361] 


[1292] 
[2176) 
[1400] 
[1533] 
THEN CAT:CALL [2619] 
[4324] 
[5705] 


[2677] 


10 CLEAR:CLS:MODE 0:INK 2,3:INK 3,18:INK 4 [15382] 
„i:INK 5,24:BORDER 13:INK 0,13:INK 1,0:PEN 
3:LOCATE 6,2:PRINT"s en s 0O":LOCATE 4,24 
:PRINT"Dirk Weinrich":PRINT" 1988":P 

EN 5:LOCATE 1,13:INPUT"Tempo:";f:FOR t=1 T 

© 1500:NEXT:CLS:FOR t=1 TO 1500:NEXT 





20 y$="":w=1l:v$="":a=INT (RND*4):a$=STR$(a [4615] 
):b$=b$+a$:GOTO 120 
30 y$=INKEY$ [847] 
40 a=4 [336] 
50 IF y$=CHR$(240) THEN a=3 [2193] 
60 IF y$=CHR$(241) THEN a=0 [2155] 
70 IF y$=CHR$(242) THEN a=l [2153] 
80 IF y$=CHR$(243) THEN a=2 [2167] 
100 IF a=4 THEN 30:ELSE w=0 [712] 
110 g=q9+2:x$=STR$(a):v$=v$+x$ {1378] 
120 IF w=1 THEN FOR i=2 TO LEN (b$)STEP 2: [2755] 
a$=MID$(b$,i,1):a=VAL(a$) 
130 IF a=1 THEN LOCATE 3,13:PEN 2:PRINT "R [2993] 
or" 
140 IF a=2 THEN LOCATE 13,13:PEN 5:PRINT [1859] 
GELB" 
150 IF a=3 THEN LOCATE 8,5:PEN 3:PRINT"GRU [2728] 
EN" 
160 IF a=0 THEN LOCATE 8,20:PEN 4:PRINT"BL [1670] 
AU 
170 SOUND 1,200+(a*200),25,15:FOR x= 1 TO [3913] 
F:NEXT:CLS 

180 IF w=1 THEN NEXT [412] 
190 IF LEN(v$)<LEN(b$) THEN 30 [2290] 
200 IF v$<>b$ THEN CLS:LOCATE 5,13:PRINT L [6495] 
EN(b$)*#2;" Pkt.":FOR t=1 TO 7000:NEXT:GOTO 

10 
210 FOR e=1 TO f:NEXT:CLS:i=0:G0T0 20 [2011] 
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i REM *** DICHTER *** [582] 
10 MODE 2:DEFINT a-z:DIM s(90) [2354] 
20 INPUT t$:1=LEN(t$):t$={UPPER$(t$)) [2316] 
30 INPUT "Welche Ordnung(1-8)";o:IF o<1 OR [4206] 
0>8 THEN 30 
40 CLS:PRINT t$:LOCATE 1,15:PRINT CHR$(24) [10563] 
;"Gesamt:";1;"Zeichen":PRINT"Es wird ein T 
ext";o;*ter Ordnung erzeugt.":PRINT"Laen 
ge: 
50 w$=MID$(t$,1,0):9$=w$ {907] 
860 FOR c=o+1 TO 1:LOCATE 9,17:PRINT c [2777] 
70 GOSUB 150:z=0 [1179] 
80 z=z+1:IF z>800 THEN w$=MID$(t$,1,0):G0T [2284] 
o 70 
90 q=32+RND*X58:IF s(q)=0O THEN 80 [1469] 
100 g$=g9$+CHR$(gq) [1361] 
110 w$=w$+CHR$(q):w$=RIGHT$(w$,0) [2645] 
120 FOR Q=1 TO 90:S(Q)=0:NEXT:NEXT [2846] 
130 PRINT CHR$(24):CLS:PRINT 9$:PRINT"Noch [3585] 
mal(J/N)?":INPUT q$ 
140 IF a$="j" THEN 9$="":GOTO 30 ELSE END [2239] 
150 tp=1 [223] 


160 tp=INSTR{tp,t$,w$):IF tp=0 OR tp+o>LEN 
(t$) THEN RETURN 

170 b$=MID$(t$,0+tp,1):s(ASC(b$))=s{ASC(b$ 
})+1:tp=tp+1:GOTO 160 


[2726] 


[4257] 





10 CALL &8BC02:MODE 1:INK 0,0:e=17:2=8:DIM 
p(26,17):SYMBOL 255,255,128,128,128,128,12 
8,128,128:SYMBOL 254,255,128,128,152,152,1 
28,128,128:FOR s=158 TO 286 STEP 16:MOVE 2 
56,s:DRAW 384,s:MOVE s+98,158:DRAW s+98,28 
6: NEXT 


[13840] 


20 IF INKEY(0)=0 THEN GOSUB 110:z=z-1:IF z [3431] 
=7 THEN z=8 : 

30 IF INKEY(2)=0 THEN GOSUB 110:z=z+1:IF z [2463] 
=16 THEN z2=15 

40 IF INKEY(1)=0 THEN GOSUB 110:e=e+1:IF e [2742] 
=25 THEN e=24 ; 

50 IF INKEY(8)=0 THEN GOSUB 110:e=e-1:IF e [3238] 
=16 THEN e=17 

60 IF INKEY(9)=0 THEN 130 [627] 
70 IF INKEY(47)=0 THEN RUN [794] 
80 IF p(e,z) THEN m$=""+CHR$(144)+"" ELS [2757] 

E m$=CHR$ (254) 

90 FOR s=1 TO 99:NEXT [2016] 
100 GOSUB 120:G0T0 20 [1680] 
110 IF p(e,z) THEN m$=CHR$(143) ELSE m$=CH [1444] 
R$(255) 

120 LOCATE e,z:PRINT m$:RETURN [1232] 
130 IF p(e,z) THEN p(e,2)=0:q9(z-7)=qa(z-7)- [4929] 
2°(24-e) ELSE pl(le,z)=1:q9(2-7)=q(z-7)+2” (24 

-e) 

150 SYMBOL 253,qg(1),q(2),q(3),qg(4),q{5),gt [73085] 


6),q(7),q(8):LOCATE 30,2:PEN 3:PRINT q(z-7 
);" ":LOCATE 7,11:PEN 2:PRINT CHR$(253):PE 
N 1:G0T0 80 





Listing 1 KByte 
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ARTWORX und der NLQ401 


Anpassung gelungen 


ARTWORX aus Heft 11/88 hatte eine fantastische 
Leserreaktion zur Folge. Lediglich die Anpassung an 
den Drucker NLQ401 fehlte — hier ist sie nun endlich. 


Die Druckroutine von ARTWORX verlangt einen Drucker, der 
mit der Steuerzeichenfolge ESC*n1 n2(n2*256+n1= Anzahl der 
Bitbilddaten) bzw. dez. 27 42 nl n2 in den Grafikmodus 4 
(640 Bitbilddaten pro Zeile) versetzt werden kann. 

Leider existiert beim NLQ401 dieser Bitbildmodus nicht. Zur 
Auswahl bieten sich nur die in Abb. 1 aufgeführten Modi an. 
Zur Umsetzung eignet sich der zuletzt genannte Modus am be- 
sten, da 1920 ein Vielfaches der 640 zu übertragenden Bitbild- 
daten ist (1920/640=3). Man muß also nur dafür sorgen, daß 
neben dem relevanten Byte noch zwei “Dummy“-Bytes an den 
Drucker geschickt werden. Dazu wird die Unterprogramma- 
dresse zum Ausdruck eines Bytes in der ARTWORX-Druck- 
routine verbogen auf eine kurze Routine im Stackbereich. 

Das zweite Problem besteht darin, daß der NLQ401 nach Ein- 
gang der Steuerzeichenfolge ESC A n bzw. 27 65 n (Einstell- 
befehl für einen Zeilenvorschub von n/72“) ein nachfolgendes 
ESC 2 (Durchführungsbefehl für den angewählten Zeilenvor- 
schub) benötigt. Die Druckroutine von ARTWORX beinhaltet 
jedoch kein ESC 2. Die Lösung des Problems ist trivial: ver- 
wendet man statt eines Zeilenvorschubs von 5/72“ den gleich- 
wertigen Vorschub 15/216“, dann ist die Steuerzeichenfolge 
ESC 2 unnötig. Leider ist ihm dabei ein Fehler unterlaufen: 
Die Steuerzeichen, die zunächst vom BASIC-Programm an die 
Adressen &9000-&9008 gepoket und anschließend von ART- 
WORX.BIN nach &0043-&004B übertragen werden, werden 
durch das Nachladen des Programms ARTWORX.PRG wie- 
der überschrieben, so daß eine vorgenommene Anderung un- 
wirksam ist. 

Soviel zu den theoretischen Überlegungen, nun zur prakti- 
schen Anpassung: a 

1. Auf einer Diskette sollten sich folgende Files befinden: 

— ARTWORX.BAS 


— ARTWORX.GRF 
— ARTWORX.PRG 


2. Damit die Originale nicht zerstört werden, benennen wir eini- 
ge Files um: 

=| REN,“ARTWORKS.BAS“,“ARTWORX.BAS“ 

—) REN,“ARTWORKS.BIN“,“ARTWORX.BIN“ 

-| REN.“ARTWORKS.PRG“,“ARTWORX.PRG“ 

3. Das BASIC-Programm ARTWORKS.BAS wird geladen: 
LOAD “ARTWORKS.BAS“ 


4. Folgende Zeilen werden 5, Folgende Zeilen werden 
geändert: ergänzt: 

— 380 POKE zeilenvorschub+1,51 - 501 FOR adr= &AFOO to &AF13 

- 390 POKE zeilenvorschub+2,15 - 502 READ byte$ 

- 450 POKE grafikmodus+0,0 - 503 byte=VAL("&i+byte$) 

— 460 POKE grafikmodus+1,27 — 504 POKE adr,byte 

- 470 POKE grafikmodus+2,90 — 505 NEXT adr 


— 480 POKE grafikmodus+3,125 - 506 DATA AF,79,CD,2B,BD,30, 
— 490 POKE grafikmodus+4,7 FA,AF,CD,2B 


- 507 DATA BD,30,FA,AF,CD,2B, 
BD,30,FA,C9 
-508 ' 
6. Das veränderte ARTWORKS.BAS wird gespeichert: 
SAVE “ARTWORKS.BAS“ 


7. Das Programm PATCH.BAS wird geladen: 
LOAD “PATCH.BAS“ 


8. Wenn die Diskette mit den Files ARTWORX.BAS, ART- 
WORX.GRF, ARTWORX.BIN und ARTWORX.PRG im 
Laufwerk liegt, kann das Patch-Programm gestartet werden: 
RUN 


9. Nach korrektem Lauf meldet sich ARTWORX mit der Benut- 
zeroberfläche. Nach dem Einladen eines Bildes kann der Aus- 
druck mit dem NLQ401 beginnen. 

10. Falls ARTWORX ausschließlich mit dem NLQ401 betrie- 
ben wird, können die Programme ARTWORKS.BAS, ART- 
WORKS.BIN, ARTWORKS.PRG und PATCH.BAS gelöscht 
werden: 


-| ERA,"ARTWORKS.BAS" -) ERA,"ARTWORKS.PRG" 
-| ERA,"ARTWORKS.BIN" -| ERA,"PATCH.BAS!" 


Viel Vergnügen mit ARTWORX und dem NLQ401. 

















— ARTWORX.BIN (Winfried Furrer/sr) 
ESC K ni n2 27 So Mn 480 Bitbilddaten max. 
ESC L ni n2 27 7e: ni M2 960 Bitbilddaten mex. 
ESE Ymi m2 27:89 ni'n2 960 Bitbilddaten max. 
ESC Z ni n2 27 20 ni n2 1920 Bitbilddaten max. 
Die geänderten ESC-Sequenzen, um Artworx an den NLO 401 anzupassen. 
.. 
fur 464-664-6128 
1260 READ byte$ [603] 
1270 byte = VAL("&"+byte$) [683] 
1280 POKE adr,byte [84] 
1290 NEXT adr [547] 
1300 DATA 21,00,90,11,43,00 [895] 
1310 DATA 01,09,00,ed,bO [840] 
1320 SAVE"artworx.bin",b,&8000,&5C6 2020] 
1000 ' [117] 1330 \ [117] 
1010 ' [117) 1340 LOAD"artworks.prg",&8000 [1914] 
1020 ' [117] 1350 10o=&0:hi=&AF [687] 
1030 ' [117] 1360 POKE &839F,10:POKE &83A0,hi 1793] 
1100 MODE ı [506] 1370 POKE &83A5,10:POKE &83A6,hi [1497] 
1110 PRINT "*** Patch fuer Artworx**x*" [2789] 1380 POKE &83AB,10:POKE &83AC,hi [641] 
1120 SYMBOL AFTER 256 [1408] 1390 POKE &8381,10:POKE &83B2,hi [1373] 
1130 him=HIMEM [335] 1400 POKE &83B7,10:POKE &83B8,hi [1444] 
1140 MEMORY &7FFF [150] 1410 POKE &83BD,10:POKE &83BE,hi [1424] 
1150 ' [117] 1420 POKE &83C3,10:POKE &83C4,hi [1394] 
1200 LOAD"artworks.bin",&8000 [1719] 1430 POKE &83CE,10:POKE &83CF,hi [945] 
1210 FOR adr=&8030 TO &80F4 [1000] 1440 SAVE"artworx.prg",b,&8000,&15C0 [2444] 
1220 byte =PEEK(adr) [1056] 1450 ' Eiızl 
1230 POKE adr-i1,byte [649] i 1460 MEMORY him [156] 
1240 NEXT adr [547] 1470 RUN "artworx [1456] 
1250 FOR adr=&80EA TO &80F4 [711] 1480 ' (iir] 
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= 0261/4047-1:[Tx] 862476 PSOFT - Telefax 02.61/4047-252 


Wir suchen ständig günstige Einkaufsquellen für die angebotenen und neue innovative Produkte. 
Günstige Möglichkeit der Finanzierung durch Ratenkredit. Fordern Sie die Unterlagen an. 


Plantron Plantron 


PT-AT Tower-Computersystem 

8/10 MHz, 640 KB RAM, Monochrom - Grafikkarte, Multi 

/O-Karte, Floppy-Disk-Contr., 1 Disklaufw. 

1.2 MB, dt Tastatur u. dt. Bedienungsan. 2398.- 
3458.- 


Plantron 
















PT-AT/64 Tower-Computersystem 
wie PT-AT, jedoch zus. mit 64 MB Festplatte 


PT-286 AT Tower-Computersystem 


wie PT-AT/64, jedoch zus. mit 2. Disklaufwerk 
(3,5', 720 KB) und Super-EGA-Karte 


3778.- 
PT-286 AT Tower-Computersystem 
+ 


4998.- 





inel. Hitachi Multi 560 
und MS-DOS 3.3 und GW-Basic 













PT-386 HT/2 Computersystem 
16 MHz, 1 MB RAM, Monochrom - Grafikkarte, Multi I/O- 
Karte, 1 Disklaufw. 1.2 MB, Echtzeituhr, 

dt. Tastatur u. dt. Bedienungsanleitung 5158.- 


PT-386 HT Computersystem 
wie PT-386 HT/2 jedoch mit Super-EGA- 
Karte 800 x 600 und Festplatte 64 MB 


6878.- 


1388.- 
198.- 





Aufpreis für PT-386 mit 20 MHz Version 
MS-DOS 3.30 dt. + GW-Basic 








Commodore 
PC-10 Ill 


8088-2 mit 4,77/7,16 und 9,54 MHz Taktfrequenz, 640KB 
Hauptspeicher, parallele und serielle Schnittstelle, Maus- 


Commodore 


Interface, Monochrom Color Video-Adapter, Echtzeituhr, 
2 Diskettenlaufwerke a‘ 360 KB, MF-Tasta- 
tur, Monitor, MS-DOS 3.2 und GW-Basic 1748.- 





PC-10 Ill 1/20 
ie PC-10 Ill, jedoch Disklaufw 
Ss ostpie nur 1 Disklaufwerk und 2228.- 
PC-10 III 2/20 
wie PC-10 Ill, jedoch mit 20 MB Festplatte 2348.- 
PC-10 III 1/30 
ie PC-10 Il, jedoch nur 1 Disklaufwerk und 
30 MB Festplatte ee 2248.- 
PC-10 III 2/30 
wie PC-10 Il, jedoch mit 30 MB Festplatte 2398.- 
Amiga 2000 mit Monitor 1084 S 2498.- 
Amiga 500 998.- 
Atari - Atari - Atari 





Atari 1040 STF Tastatur, 1024KB RAM, 192KB ROM, 
integrierte Floppy 720 KB, Monochrom- 
Monitor SM 124, Maus und Basic 1498.- 








Amstrad 


Amstrad Amstrad 


PC 1640 D Mono 1748.- PC 1640 DEGA 
PC 1640 HD Mono 2338.- PC 1640 HD EGA 


2598.- 
3168.- 


PC 1640 HD Mono mit 20 MB (Seagate) 
PC 1640 HD Mono mit 30 MB (Seagate) 
PC 1640 HD Mono mit 40 MB (Seagate) 


PC 1640 HD EGA mit 20 MB (Seagate) 


PC 1640 HD EGA mit 30 MB (Seagate) 
PC 1640 HD EGA mit 40 MB (Seagate) 


PC 1512 S Mono 
PC 1512 S Farbe 


Portable PC 
PPC 5128 


1198.- PC 1512 D Mono 
1568.- PC 1512 D Farbe 


1548.- 
1898.- 


1418.- PPC512D 1668.- 








CMP CMP CMP CMP CMP 


CMP-AT 
80288 mit 8/12 MHz Takt, Hauptspeicher 640 KB, 
erweiterbar auf 4 MB on Board, Echtzeituhr, 1 x parallele 
und 1 x serielle Schnittstelle, 1 Diskettenlaufwerk 1.2 MB, 
Hercules kompatible Grafik- 


















karte und MF - Tastatur 2498.- 
CMP-AT/20 2948.- CMP-AT/40 3248.- 
CMP Baby-AT 

wie CMP-AT Jedoch mit Baby-AT Gehäuse 2398.- 


CMP Baby-AT/20 2898.- CMP Baby-AT/40 3198.- 


CMP-AT/40 (Baby-AT) 
+ 


incl. MaxLogic Autoswitch EGA-Karte 
und Hitachi Multi 560 Autoscan 
inel. MS-DOS 3.3 und GW-Basic 





4798.- 


CMP Tower Maxi 
wie CMP-AT, jedoch m. Tower-Maxi Gehäuse 2698.- 


Tower-Maxi/20 3198.- Tower-Maxi/a0 3498.- 


NEU ! CMP 386 AT 

80386 mit 25 MHz Taktfrequenz, 1 MB Hauptspeicher, 

Sockel für 80387 Co-Prozessor, Award BIOS, 1 Disketten- 

laufwerk 1.2 MB (5 1/4‘), Echtzeituhr, 1 x parallele und 

1 x serielle Schnittstelle, Hercules 

komp. Grafikkarte und MF-Tastatur 5598.- 
CMP 386 AT/4a0 6398.- 


CMP 386 AT/20  6098.- 

NEU! CMP 386 Tower 
wie CMP 386 AT, jedoch m. Tower-Gehäuse 5798.- 
386 Tower/20 6298.- 386 Tower/ao 6598.- 


Preise für weitere Konfigurationen (80 MB + 122MB) 
bitte telefonisch erfragen. 


































CT - PS/2 Modell 30 
CT-PS/2 Modell 30 (IBM komp. lizensiert) 


All-in-one-Mainboard mit 8086 Prozessor, 16 Bit Daten- 
pfad, O0 Waitstate, Speed ca. 12 MHz, 640 KB RAM on 
Board, serielle u. parallele Schnittstelle, Mouseanschluß, 
MGCA-Grafik, FD/HD-Controller, Echtzeituhr, 3 freie Er- 
weiterungsslots, 2 Diskettenlaufwerke 3,5 (720 KB), 


20 MB Festplatte u. 3498 = 


Tastatur (102 Keys) 
798.- 


Streamer 40 MB für PS/2 


Externes Laufwerk DR 500 M 


1.2 MB Laufwerk incl. Adapterkabel für PS/2 498.- 





Seagate Festplatten 


Festplattenkits (incl. XT-Controller u. Kabelsatz) 
20 MB (ST-225) (5 1/4) 568.- 
30 MB (ST-238R) (5 1/4') 578.- 
30 MB (ST-138) (3,5) 
ST-225 (20 MB) 458.- ST-238R (30 MB) 488.- 
ST-251/1 (40 MB) 798.- ST-277R (65 MB) 798.- 
ST-4096 (80 MB) 1198.- ST-4144R (122MB) 1%398.- 
ST-251-0 40MB,40ms, halbe Bauhöhe 698.- 
ST-125-0 (20MB) 478.- ST-125-1 (20MB) 588.- 
ST-138R-0 (30MB) 518.- ST-157R-0 (S0MB) 818.- 
NEU! Mitsubishi MR 535 40 MB, 28 ms 848.- 
Priam V-185 
110 MB Festplatte, 18 ms, RLL-fähig 1 298.- 
Filecard 
20 MB Filecard 598.- 30 MB Filecard 728.- 
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EGA/VGA  Grafik-Adapter 


ATI EGA Wonder Enhanced mit VGA 












ATI VIP - Karte (VGA) 498.- 
Video Seven VEGA VGA 628.- 
Pro Designer VGA (1024 x 768 und 512 KB) 878.- 
NEU ! MaxLogic Autoswitch EGA-Karte 
(800 x 600, VGA Mode 11 + 12) nur 358.- 
Genoa Super Hires plus Level 7 398.- 
Genoa Super VGA Hires 698.- 
Video Seven VGA-16 OEM (16 Bit Karte) 798.- 
NEU ! Tecmar VGA/AD (16 Bit Karte) 1198.- 





NEC Multisyne Il 
Hitachi Multi 560 
Mitsubishi EUM-1481 A 
NEC Multisync GS 


EIZO 9070 S 

16° Monitor, (1280 x 800 Bildpunkte) 
(14) 
(14') 


Logimouse C7 Plus package deutsch 
NEU ! GM 8000 Hires Mouse 
MS-kompatible Mouse seriell 


ADI kompatibler Monitor 
Flat Screen Monitor 


Co-Prozessoren 
8087 (5 MHz) 
8087 (10 MHz) 
80287 (8 MHz) 
80387-16 

80387-25 
Fast-Sockel 80237 - 8, 10 oder 12 MHz 


188.- 8087 (8 MHz) 
398.- 80287 (6 MHz) 
448.- 80287 (10 MHz) 
878.- 80387-20 





Software Software 
1248.- DBase IV engl. 

1248.- Olipper Comp. 

1798.- Symphony 2.0 

1298.- NEU ! Pagemaker 


Software 


DBase Ill + 
Framework Ill 
Ventura Publisher 
NEU ! Op. Acec.ll 2.1 





Fox Base + 2.0 698.- Lotus 1-2-3- 
NEU ! Wordstar 5.0 748.- Wordstar 2000 Rel.3 
Turbo Basic 198.- Turbo C 2.0 
NEU !Turb. Pasc. 5.0 268.- Sidekick plus 
Word 4.0 948.- NEU ! Windows 2.1 
Windows 386 2.1 468.- Works 
NEU ! Multiplan 4.0 538.- Quick-Basic Comp. 
PC Tools de Luxe dt. 118.- F&A 
Citizen Citizen Citizen 
LSP-120D Parallel o. Commodore Interf. nur 378.- 
Epson Epson Epson 


LQ-850 
LQ-500 


LX-800 


Einzelblatteinzüge für 
LQ-500 178.- LQ-850 


NEC NEC NEC NEC NEC 


NEC P2200 
NEC P6 plus 
NEC P7 plus 


1368.- LQ-1050 
798.- LQ-2550 


1738.- 
2898.- 


nur 488.- 


LX-800 
LQ-1050 


TOP-PREIS 


178.- 


318.- 398.- 





24-Nadel-Drucker 
24-Nadel-Drucker 
136 Zeichen/Zeile 


Starr - Star - 


548.- LC-10 centr. color 648.- 
568.- LC-10 com. color 648.- 


nur 798.- 





Star - 


LC-10 centr. 
LC-10 com. 


LC 24-10 


TOP-PREIS 








ProSoft GmbH 








Filiale München Theresienstraße 56, 8000 München 2, Tel. 089/2850 14, 
direktbei dertechnischen Hochschule. Bitte beachten Sie, daß nichtständig sämtliche 
Ware in unserer Filiale München vorräti 





gist. Rufen Sie an! 


Bogenstraße 51-53, Postfach 2.07, D-5400 Koblenz-Goldgrube, Telefon (0261) 4047-1, Telex 862.476, Telefax (0261) 4047-252 


Alle Preise zuzügl. 10,- DM Versandkosten pro Paket. Lieferung per Nachnahme oder Vorkassescheck - Versandkosten Ausland DM 40,- pro Paket. Lassen Sie sich keinen Bären aufbinden! ProSoft liefert Original-Produkte der führenden 
Hersteller. Überzeugen Sie sich selbst durch Abholung der Wareiriunseren Verkaufs- und Vorführräumen in Koblenz. Wir gewähren IhnenbeiBarzahlung (keinScheck)2% Skonto aufalle Preise, was vielleichtschonzurDeckungihrer 
Reisekosten ausreicht. Einige unserer Vorlieferanten liefern Produkte ohne die Seriennummer des Herstellers. In diesem Fall übernehmen wir anstelle der Herstellergarantie die unbeschränkte gesetzliche Gewährleistung. 


Bitte beachten Sie, daß nicht ständig sämtliche Ware vorrätig ist. Rufen Sie an! 


DT JOYCE 

















CPC Programme 
auf dem Jovce PCW 


Eine gelungene Umsetzung des CPC-Spiels Schlange auf dem JOYCE PCW 


Das Problem, das in unserer Zeitschrift gute CPC-BASIC-Programme abgedruckt werden, welche auf dem 
Joyce PCW nicht laufen, liegt ja bekannterweise in den unterschiedlichen BASIC-Versionen. Daß man 
jedoch auch solche Programme mit etwas Programmiergeschick auf dem PCW lauffähig machen kann, zeigt 


dieses kleine Spiel, welches im Mai- Heft von 1988 für den CPC abgedruckt wurde. 


Bei dem Programm Schlange haben Sie 
die Aufgabe, ein 20*20 Felder großes 
Spielfeld einzufärben. Dabei kann man 
kein Feld zweimal betreten. Auf man- 
chen liegen auch Steine, welche das 
Spiel erschweren. Wenn man sich ver- 
laufen hat, so kann man mit der Leerta- 
ste die Züge der Reihenfolge nach zu- 
rücknehmen. Nachdem man nicht 
mehr weiterkommt — obwohl man sein 





Bestes gegeben hat, drückt man die 
[E]-Taste. Man bekommt jetzt Punkte, 
die aus der Differenz von der Schwie- 
rigkeitsstufe und der Anzahl der nicht es 
geschafften Felder resultiert, (es sind 
auch Minuspunkte möglich). 


Hat man alle Felder eingefärbt, so be- 
kommt man Bonuspunkte. 





(Martin Nicolaus/rs) 


zuerst 


Dieses Programm ist in BASIC ge- 
schrieben. Nach dem Abtippen sollte 


mit  SAVE“SCHLAN- 


GE.BAS“ abgespeichert werden. Spä- 
ter kann es dann unter CP/M mit A> 
BASIC SCHLANGE und unter BASIC 
mit RUN "SCHLANGE" wieder auf- 
gerufen und gestartet werden. 














66 PE 


189 





LISTING >SCHLANGE<, REMARK = >’<. <97> 245 PRINT"Wenn man aber zu wenig Felder durchquert 
‚ werden Punkte wieder abgezogen.” 
<72> 10 GOSUB 1950:G03UB 1660 «54> 250 PRINT"Hat man über 100 Punkte erreicht, so hat 
<.2) 20 ' man gewonnen." 
<51> 30 DEFINT a-z «53» 260 PRINT"Drücken Sie jetzt eine beliebige Taste ( 
<46> 40 c1S$=CHR$(27)+"H"+CHR$(27)+"E" außer ALT-C)!" 
«53» 50 DEF FNloc$(x,y)=CHR$(27)+"Y"+CHR$(I1+y)+CHR$ (31 <58> 270 WHILE INKEY$="" 
2) «653 280 z=z+1:IF z=60 THEN z=1 
<19> 60 DEF FNwin$(o,1,h,b)=CHR$(27)+"X"+CHR$(31+0) +CHR <98> 290 WEND 
$(31+1)+CHR$ (31+n) +CHR$ (31+b) <37> 300 RANDOMIZE z 
Ser <22> 310 ’ 
< 8> 80 ’ <46> 320 DIM merk (25,25) 
<19> 90 PRINT c1s$ «23> 330 DIM hinder (20,2) 
<93> 100 PRINT CHR$ (27)+"b"+CHR$ (63) +CHR$ (27)+"c"+CHR$( <28> 340 ’ 
0) «30» 350 ’ 
<54> 110 PRINT FNwin$(5,5,24,80) | <32> 360 ” 
<81> 120 PRINT TAB(30);CHR$(27)+"p"+" S. C. H. L. A. N. <34> 370 ’ 
G. E “+CHR$(27)+"q" <42> 380 IF d=i THEN 480 
< 2» 130 PRINT:PRINT: PRINT <38> 390 
<54> 140 PRINT"Spielidee: Familie Lipka" <76> 400 PRINT c18$;"Welche Schwierigkeitsstufe" 
<30> 150 PRINT"Überarbeitung für den Joyce: Martin Nico <93> 410 PRINT"( 5=leicht bis 20=schwer ) ÄRETURNE" 
laus” <35> 420 INPUT;,S$ 
<47»2 160 PRINT:PRINT <26> 430 ah=VAL(s$) 
<22> 170 PRINT CHR$(27)+"p"+"Anleitung“+CHR$ (27)+"q” <63> 440 IF ah>20 OR ah<5 THEN GOTO 400 ELSE GOTO 480 
<35> 180 PRINT"Bei diesem Spiel kommt es darauf an, mög | <31> 450 ' 
lichst viele Felder zu durchqueren.” «33> 460 ' 
<86> 190 PRINT"Jedes Feld kann dabei nur einmal betrete <35> 470 ' 
n werden. Gesteuert wird die Schlan-" < 3> 480 PRINT c1s$ 
«72> 200 PRINT”ge mit den Cursortasten. Die eingegebene <12> 480 PRINT CHR$(27)+"F"+CHR$(27)+"0" 
n Felder werden mit der Leertaste" i <14> 500 PRINT FNwin$(6,13,24,80) 
< 0» 210 PRINT"zurück genommen." <24> 510 
«34» 220 PRINT"Je mehr Felder durchquert werden und je | <51> 520 x=1 
höher die Schwierigkeitsstufe ist,” } <50> 530 FOR y=2 TO 23 
< 5» 230 PRINT"desto größer wird auch die Punktzahl. We < 9» 540 PRINT FNl0c$(x,y);CHR$ (233) :merk (x,y)=233 
nn man alle Felder besetzt hat, wird" <61> 550 NEXT y 
<16> 240 PRINT"man mit Bonuspunkten belohnt, die sich n i <18> 560 IF x=1 THEN x=22:60T0 530 
ach der Schwierigkeitsstufe richten.” | «73» 570 y=2 
Listing Schlange Listing Schlange 
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<17> 580 FOR x=2 TO 21 

<19> 590 PRINT FNloc$(x,y);CHR$ (233) :merk (x,y)=233 

<42> 600 NEXT x 

<24) 610 IF y=2 THEN y=23: GOTO 580 

x27> 620 ' 

<29> 630 °’ 

<31> 640 ’ 

<36> 650 IF d=i1 THEN 750 

«35> 6860 ’ 

<37> 670 FOR a= 1 TO ah 

<18> 680 LET x=INT(20+RND(1))+2:LET y=INT(20#RND(1)}+3 

<11> 690 IF merk (x,y)=233 THEN 680 

<39> 700 PRINT FNiloc$ (x ,y};CHR$(233) 

<93> 710 merk (x,y)=233:hinder (a,1)=x:hinder (a,2)=y 

<15> 720 NEXT a 

<«96> 730 GOTO 820 

<32> 740 °’ 

<96> 750 FOR a=1 TO an 

<67> 760 x=hinder (a,1):y=hinder (a,2) 

<17> 770 PRINT FNloc$ (x ,y);CHR$(233) :merk (x,y)=233 

<27> 780 NEXT a 

<42> 790 ’ 

<25> 800 ’ 

<27> 810 

<16> 820 x=2:;y=3:p=0 

<56> 830 PRINT FN10c$ (x ,y);CHR$(224):merk (x ,y)=5 

«595 840 PRINT FN10c$(30,7);"Feider :" 

<44> 850 PRINT FN10c$ (31,10) ;"0" 

<36> 860 PRINT FN10C$(30,13);" Punkte :" 

<17> 870 PRINT FN10cC$ (30,16) ;pu 

<21> 880 PRINT FN100$ (30,1) ;"Schwierigkeitsstufe: ",s$ 

«31 890 PRINT FN100$(30,20);"let=enne 4 k=zurück Icurs 
ort. b= =Steuerung" 

<26> 900 ’ 

<28> 910 ’ 

<30> 920 ’ 

<67> 930 a$=UPPERS(INKEY$):IF a$="" THEN 930 

<21> 940 IF a$=CHR$(31) THEN h=1:G0T0 1030 

<33> 950 IF a$=CHR$(30) THEN h=2:G0T0 1030 

<70> 960 IF a$=CHR$(1) THEN h=3:G0TO 1030 

«79» 970 IF a$=CHR$(6) THEN h=4:G0T0 1030 

<70> 980 IF a$="E" THEN GOTO 1420 

<«52> 990 IF a$=" " THEN GOTO 1230 ELSE 930 

<«83> 1000 ’ 

<86> 1010 

<89> 1020 ’ 

<67> 1030 PRINT FNloc$(x,y);CHR$(207) 

<84> 1040 IF h=1 THEN y=y-1 

<56> 1050 IF h=2 THEN y=y+1 
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ür CPC 464-664-6128, nur auf 3“- Disketten 


age CPC-Software im Paket 
zu stark herabgesetzten Preisen 


COMPOSER-STAR (664/6128) 
Ein Musikprogramm für alle Musikfans 


Mit COMPOSER-STAR können Sie komplette Musikstücke oder nur 
ein paar Taktfolgen auf einfachste Weise erstellen! Natürlich stehen 








CPC 


SPECIAL OFFER 
No. 1 


vier Programme 
Best-Nr 204 nur 









ne 69-DM 


Ihnen auch eine Menge Korrekturhilfen zur Verfügung, um Ihrem 
Stück den letzten Schliff zu geben. Sie können auch mehrere Stücke 
verbinden, transponieren, die Tonhüllkurven und die Lautstärke ver- 
ändern, den Rauschgenerator benutzen, Notenblätter drucken ... 
Das Programm ist sehr einfach zu bedienen; das beiliegende Hand- 
buch gibt auch dem Anfänger einen Einblick in die bislang fremde 
Welt der Musik. Das wichtigste jedoch ist, daß Sie Ihre Werke in ein 
Basicprogramm umwandeln können, um es in eigenen Programmen 
zu verwenden. 











STATISTIC-STAR 


Eine Grafik sagt mehr als 1000 Zahlen 

Ein professionelles Grafik- und Statistik- 
programm zum Auswerten von Daten aller Art 
(Schule, Studium, Beruf, Hobby, Haushalt ...). 
© Linien-, Balken- und Tortengrafik 

© Betiteln von Grafiken 

© 400 Daten direkt im Speicher 

© Umfangreiche Editierfunktionen 





















































© Umfangreiche statistische Berechnungen 
© Hardcopyfunktion u.v.m. 


COPY-STAR II 


ist die ideale Befehlser- 
weiterung für Drucker- 
besitzer, denn es stellt 
für alle gängigen 
Drucker Hardcopyfunk- 
tionen in verschiedenen 
Größen zur Verfügung. 
Sogar Farbbilder lassen 
sich schattiert ausge- 
ben. COPY-STAR Il kön- 
nen Sie leicht in eigene 
Programme einbinden. 


ZEN 3 Sy 





MATHE-STAR 


Vom Lehrer für Schüler 
® lin. Gleichungssysteme 
© Gleichungen 4. Grades 
© Bruchrechnen 
© Primfaktorenzerlegung 
© Polynome 
© Kurvendiskussion 
© Integralrechnung 
© Vektorrechnung 
© Matrixrechnung 

etc. 
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DISKSORT-STAR 


Leistungsstarke Diskettenverwaltung, die keinem CPC-Benutzer 
fehlen Solte, DISKSORT-STAR verwaltet, archiviert, katalogisiert, 
druckt, ... Ihre Diskettensammlung auf einfachste Weise. Neben 
der reinen Diskettenverwaltung ist unter’ anderen noch ein kom- 
 pletter Diskettenmanager enthalten. Auch in punkto Bedie 
komfort ist DISKSORT-STAR kaum zu schlagen. 











DESIGNER-STAR 


Grafikprogramm, mit dem 
man Bildschirmgrafiken kom- 
fortabel erstellen kann. Hilfs- 
menü auf Tastendruck - kein 





CREATOR-STAR STAR-MON 
Ein Trickfilmdesigner für Das Entwieklungssystem 
alle Hobbyregisseure auf für Profis ; 
dem CPCI © Assembler 

© Sprite-Designer “Editor 

© Laufschrift @ Disassembler 

© Utilities ® Monitor ä 

© Kulissendesigner @ vier Breakpoints® 

© Sprites mit 4 Unter- © Trace-Funktion 

positionen © Bankswtch 
© Verbinden von Sprites © Memory Dump n 


© Kulissen auch überein- 
andergelegt 
© Eigene Programmierspra- 





© Diskettenmonitor. . 
ouvum. 2 a 
























«74» 1060 IF h=3 THEN x=x-1 

«46» 1070 IF h=4 THEN x=x+1 

<42> 1080 IF merk(x,y)<>0 THEN 1140 

< 7» 1090 PRINT FNloc$ (x ,y) ;CHR$ (224) :merk(x,y)=h 
<25> 1100 p=p+1:PRINT FN10c$(30,10);p 

< 8) 1110 IF p+ah=399 THEN GOTO 1390 

<46> 1120 GOTO 930 

«94> 1130 ’ 


<44> 1140 IF h=1 THEN y=y+1 

< 1> 1150 IF h=2 THEN y=y-1 

<34> 1160 IF h=3 THEN x=x+1 

<90> 1170 IF h=4 THEN x=x-1 

<82> 1180 PRINT FNloc$(x,y);CHR$(225) 
<67> 1190 GOTO 930 

<87> 1200 ’ 

<90> 1210 

<93> 1220 ° 

<40> 1230 h=merk(x,y) 

<59> 1240 IF h=5 THEN 930 

<74> 1250 merk (x,y)=0 

< 63 1260 ’ 

<10> 1270 PRINT FN10c$ (x,y);CHR$(32) 
<58> 1280 IF h=1 THEN y=y+1 

<15> 1290 IF h=2 THEN y=y-1 


<20> 1300 IF h=3 THEN x=x+1 
Listing Schlange 








Joystick oder Maus not- 
wendig. 


CcPc 
SPECIAL OFFER 


No. 3 (Games) 
neun Programme 
Best-Nr.1i 


che mit Editor und Compiler 
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DJOYCE 


<78> 
<95> 
<40> 
<84) 
<74> 
<62> 
<11> 
«143 
<92> 


<:3) 
94) 
<66> 


<61> 
< 0» 


<45> 


<86> 


<45) 
<29> 
<23) 
<21> 
<70> 
<76> 
<90> 
<27> 
<92> 
64) 
243) 


<41> 
<75> 
«952 
<98> 
< 2» 
< 53 
< 8 
<11> 
<84> 
<25> 
<49) 


<10> 
<27> 
<89> 
<64> 


























1310 IF h=4 THEN x=x-1 


1320 ’ 
1330 PRINT FNioc$ (x,y);CHR$ (224) 
1340 p=p-1 


1350 PRINT FN10C$(30,10);p 

1360 GOTO 930 

1370 ° 

1380 ’ 

1390 PRINT FN1oc$ (30,30);,"Sehr gut! Du bekommst ei 
nen Bonus. Bitte warten!":FOR w=1 TO 2000:NEXT:pu= 
pu+ah 

1400 PRINT FN10c$ (30,30) ;SPACE$ (50) 

1410 

1420 PRINT FN10c$(30,20);"Anderes Bild, dasselbe B 
ild oder Ende ? " 

1430 PRINT FN1oc$(30,21); "lat, Ink, Iet- 

1440 pu=pu+(ah-(399-(p+an))):PRINT FN10C$ (30,16) ;p 
u 

1450 IF pu>100 THEN PRINT c1s$;"DU HAST GEWONNEN! 
HERZLICHEN GLÜCKWUNSCH!” ELSE GOTO 1520 

1460 PRINT "Möchtest Du ein weiteres Spiel? So war 
te einen Augenblick, sonst drücke jetzt eine Taste 
ı" 

1470 WHILE INKEY$<>"":WEND 

1480 j=0:WHILE INKEY$="" 

1490 j=j+1:IF 5=1000 THEN RUN 

1500 WEND 

1510 GOTO 1580 

1520 a$=UPPERS$ (INKEY$) 

1530 IF a$="" THEN 1520 

1540 IF a$="A" THEN d=0:G0T0 1590 

1550 IF a$="D" THEN d=1:G0TO 1590 

1560 IF a$<>"E" THEN 1520 

1570 PRINT CHR$(27)+"b"+CHR$ (O)+CHR$ (27)+"c"+CHR$( 
63) 

1580 PRINT c1s$;CHR$ (27)+"e"+CHR$ (27)+"1": END 

1590 ERASE merk:DIM merk (25,25):G0TO 370 

1600 ' 

1810 

1620 ° 

1630 ’ 

1640 °’ 

1650 

1660 RESTORE 1850 

1670 READ Zeichencode 

1680 IF Zeichencode<O OR Zeichencode>255 THEN RETU 
RN 

1690 FOR i=0 TO 7 

1700. READ x : POKE Tabstart+i,x 

1710 NEXT i 

1720 Charstart=Zeichencode#8+&H8800+2°16 


Listing Schlange 


Anwendungsprogramme für 
CPC oder JOYCE 

















ADRESCOMP - praktische Adressendatei 58,— 
COMFORM - Überweisungsformulardruck 48,— 
DATENREM - universelle Dateiverwaltung 68, - 
ETATGRAF — Haushaltsbuch mit Grafik 58,— 
FAKTUREM - Fakturierung mit Speicherung 78,- 
FIBUKING — Buchführung mit 60 Konten 136,— 
KALKUREM - Tabellenkalkulation (Version 2.0) 78,— 
LAGDAT — praktische Lagerdatei 68,— 
PROFIREM - Rechnungen, Lager- Kundendatei 136,— 
VOKABI — universeller Vokabeltrainer 58,— 





Versand p. Vorkasse (portofrei), Nachnahme (zzgl.5 DM) 
Fordern Sie jetzt unsere aktuelle Info CJ3 an 
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Elfriede van der Zalm, Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Tel. 0 44 61/55 24 





DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 
DM 


1730 Highaddr=INT (Charstart/256) 
1740 Lowaddr=Charstart-Highaddr*256 
1750 POKE &HF510,Lowaddr 


1760 POKE &HF511,Highaddr 

1770 CALL Codestart 

1780 GOTO 1670 

17909.” 

1800 

1810 ’ 

1820 

1830 

1840 °’ 

1850 DATA 225,&H7E,&HFF ,&H99,&H99 ,&HFF,&HC3,8&H99,& 
H7E 

1860 DATA 224,&H7E,&HFF ,&H99,&H99,&HFF ,&H99,&HC3 ,& 
H7E 

<14> 1870 DATA 233,&HFF,&H81,&H81,&H81,&H81,&H81,8&H81,& 
| HFF 

<14> 1880 DATA 207,&HAA,&H55 ,&HAA,&H55 ,&HAA ,&H55,&HAA,& 
H55 

1890 DATA -1 

1900 ’ 

49:10 

19207 

1930 ’ 

1940 ’ 

1950 MEMORY &HFAFF 

1960 RESTORE 2060 

1970 Codestart=&HF500 

1980 Tabstart=&HF515 

< 3» 1990 FOR i=0 TO 20 

<13> 2000.. READ x : POKE Codestart+i,x 
<76> 2010 NEXT i 

<85> 2020 RETURN 

<93> 2030 ’ 

<96> 2040 ” 

< 0> 2050 ’ 

<39> 2060 DATA &H01,&H09,&HF5 

<44> 2070 DATA &HCD,&H5A,&HFC 

«55» 2080 DATA &HE9I,&HOO 

<21> 2090 DATA &HC9Y 

<90> 2100 DATA &H21,8&H15,&HF5 

<74» 2110 DATA &HO1,&H08 ,&H00 

«37» 2120 DATA &H11,&H00,&H00 

<25> 2130 DATA &HED,&HBO 

< 85 2140 DATA &HC9 

Zn 2150 

| 25922160, % 

GBR 2120, 

<11> 2180 ” 


«6» 
< 93 
<12> 
<74) 


<84> 


<49> 
< 2» 
“52 
< 8 
<11> 
| <14> 
<73> 
< 0» 
<20> 
<55> 


Listing Schlange 














Ist Ihr Programm der HIT? 


Der DMV-Jerlag sucht ständig 
nach neuer, interessanter 
Software zur Aufnahme in 
unser Softwaresortiment. 


Dabei ist es einerlei, ob Sie nun ein 





Anwendungs- oder ein 
Spielprogramm geschrieben haben. 


Der DMV-Vverlag bietet Ihnen sein 
Software-Know How anl 











Bestellservice für CPC 464 - 664 - 6128 
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File Rescue 
Der gelöschten Datei auf der Spur 


Wem ist es noch nicht passiert? Das voreilige oder manchmal auch unacht- 
same Löschen von Dateien nämlich. RESCUE.BAS rettet, was noch zu ret- 
ten ist. 


Wie werden die Daten eigentlich auf 
der Diskette abgelegt? Ohne im Besitz 
tiefgreifender Literatur über CP/M 
Plus oder ähnlichem zu sein, blieb mir 
— leider aus gegebenem Anlaß — 
nichts weiter übrig, als die Nachfor- 
schungen auf eigene Faust anzustellen. 
Die Diskette ist ja aufgeteilt in 40 Spu- 
ren zu je 9 Sektoren. Jeder Sektor in- 
nerhalb einer Spur hat eine Kapazität 
von 4 Records, also 1/2 K. 


Je 2 Sektoren sind zu einem Block zu- 
sammengefaßt, so daß ein Block 8 Re- 
cords, also Ik unterbringen kann. Das 
hüpfende Komma besteht nun darin, 
daß die Dateinamen nebst anderer 
nützlicher Informationen in einem ge- 
sonderten Bereich der Diskette abge- 
legt werden. Diese nützlichen Informa- 
tionen heißen “Directory-Einträge“ 
und befinden sich in den Sektoren O bis 
3 der Spur 1. Diese Directory-Einträge 
haben eine Länge von jeweils 32 Bytes: 


— ByteO0 : User-Nr. 
Byte 1-11 : Dateiname, wobei die 
3 letzten Zeichen den 
Dateityp kennzeichnen 
Byte 15  : Anzahl der Records 
Byte 16- : Nummern der Blöcke, 


die von der Datei be- 
legt werden. 
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Sein oder nicht sein.... 


Als Indikator, ob eine Datei im Inhalts- 
verzeichnis der Diskette weitergeführt 
werden soll oder nicht, dient das Byte 0 
des Directory- Eintrages der Datei. 
Existiert diese Datei vor CP/M Plus, 
dann befindet sich hier die User-Num- 
mer; soll sie nicht mehr existieren, 
wird dieses Byte auf &HES5 gesetzt. 
Das führt nämlich dazu, daß diese Da- 
tei aus dem Katalog der Diskette ent- 
fernt wird, wobei es durchaus der Fall 
sein kann, daß die Daten noch vollstän- 
dig auf der Diskette vorhanden sind. 
Und dieses ist natürlich immer dann 
der Fall, wenn seit dem Löschen dieser 
Datei keine Schreiboperationen auf der 
Diskette durchgeführt worden sind. 
Anderenfalls werden die freigegebenen 
Blöcke durch andere Dateien besetzt. 


Daraus folgt, daß eine gelöschte Datei 
durch Anderung des Byte 0 im Directo- 
ry-Eintrag dieser Datei von &HES5 in 
die User-Nummer wiederbelebt wer- 
den kann. 


Das Programm 


besteht im wesentlichen aus zwei Tei- 
len: Lesen eines Sektors der Diskette; 
Schreiben eines Sektors auf die Disket- 


te. Dabei werden die entsprechenden 
BIOS-Funktionen über die BDOS- 
Funktion 50 aufgerufen. Nach der Ini- 
tialisierung und dem Bildschirmaufbau 
folgt das Durchsuchen der Directory- 
Einträge der Diskette im Laufwerk A. 
Und das funktioniert so: 

l. Die Sektoren 0 bis 3 werden nach- 
einander in den Speicher ab der Adres- 
se dma=&HF100 geladen. 

2. Jeder Sektor wird auf den Index 
&HES durchsucht. 

3. Wenn der Index gefunden wurde, 
wird die String-Variable file$ mit fol- 
gendem Text belegt : 

Sektornummer 

Adresse des Index im Puffer (dma) 
Dateiname 

Die Durchsuchung endet, falls der Da- 
teiname nur noch aus lauter &HES5en 
besteht. 

Dadurch ist jede Datei über die Kombi- 
nation aus Sektornummer und Puffer- 
adresse eindeutig bestimmt. Nun wer- 
den die als gelöscht gefundenen Datei- 
en auf dem Bildschirm ausgegeben, 
und zur weiteren Bearbeitung müssen 
nur die am unteren Rand des Bild- 
schirms erscheinenden Fragen wahr- 
heitsgemäß beantwortet werden. 

Die Wiederbelebung einer Datei er- 
folgt nach folgendem Schema: 

1. Eingabe der Dateinummer, die vor 
dem Dateinamen steht. 

2. Die entsprechende Sektornummer 
und Pufferadresse wird aus file$(da- 
tei% extrahiert. 

3. Die Sektornummer wird an die ent- 
sprechende Stelle des MC-Programms 
im Speicher gePOKEt(&HFO016). 

4. Der Sektor wird erneut ab &HF100 
in den Speicher befördert. 

5. Die der spezifizierten Dateizugehö- 
rige Indexadresse wird mit der User- 
Nr. überschrieben. 

6. Der Sektor wird auf die Diskette zu- 
rückgeschrieben. Danach kann das 
Spiel von vorne beginnen. 


Organisieren... 





Zum Abschluß noch ein paar Anmer- 
kungen zur Organisation der Blöcke 
auf der Diskette. Nach meinen Nach- 
forschungen sieht das so aus: 


Block 0 : Spur 1, Sektoren O und 1 
Inh.: Directory-Einträge 

Block 1: Spur 1, Sektoren 2 und 3 
Inh.: Directory-Einträge 

Block 2 : Spur 1, Sektoren 4 und 5 
Inh.: Daten 
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Block 4 : Spur 1, Sektor 8 und Spur2, 
Sektor 0 Inh.: Daten 

Block 5 : Spur 2, Sektoren 1 und 2Inh.: 
Daten 


Block 175 : Spur 39, Sektoren 6 und? 





tungsparameter (Label u.ä.) befinden. 


RESCUE.BAS kann gelöschte Dateien 
nur dann vollständig retten, wenn in 
der Zwischenzeit also vom unachtsa- 
men Gebrauch vonz.B. ERASE bis zur 





Dieses Programm ist in BASIC geschrieben. Da das 
Programm auf Maschinen-Code-Routinen zugreift, 
sollte es vor dem ersten Start mit SAVE“RES- 
CUE.BAS“ <RETURN> abgespeichert werden. Spä- 
ter kann es dann unter CP/M mit A> BASIC RESCUE 
<RETURN> und unter BASIC mit RUN“RESCUE“ 


<RETURN> gestartet werden. Aus Platzgründen 
wird das Assembler-Quellcodelisting nicht im Heft ab- 
gedruckt. Auf der Databox können Sie dieses jedoch 
finden. 


Entdeckung des Mißgriffs keine 


Dem Inhalt der Spur O bin ich noch N . n 
Schreiboperationen ausgeführt worden 


nicht auf dieselbe gekommen. Ich ver- 














mute, daß sich dort weitere Verwal- sind. (Udo Rieger/rs) 
<52> 10 REM #+ttsrKK ss <48> 290 PRINT FNsc$(1,13);CHR$(134) ;STRING$ (62,138) ;CH 
SBANIZOBREMERRE ne nesereainfon sage sie *++ R$(140) 
<18> 30 REM ###.,,,., REESSICHUHE ++ <22> 300 PRINT TAB(14);CHR$(133) ;TAB(77);CHR$(133) 
EIN HONREMURRE ee ste an esaienarnnninrniennienn are **% < 0> 310 PRINT TAB(14);CHR$(133) ,;TAB(33) ;CHR$(134) ;STRI 
<75> 50 REM ***. (C) Udo Rieger 7/88.. *+*+* NG$ (23,138) ;CHR$(140); 
6583. :50U/REMERRR. see eseeisercene r% <56> 320 PRINT TAB(77);CHR$(133) 
<58> 70 REM KrtHHssrcckr + <27> 330 PRINT TAB(14);CHR$(133);TAB(33) ;CHR$(133) ;TAB( 
<84) 80 : 57);CHR$(133) ;TAB(77);CHR$(133) 
<64> 90 REM **#* Initialisierung **+* <40> 340 PRINT TAB(14) ;CHR$(133) ;TAB(33) ;CHR$(133);"... 
<14> 100 ; . RESC U E";TAB(57); 
<30> 110 GOSUB 1740 <81> 350 PRINT CHR$(133) ;TAB(77);CHR$(133) 
<93> 120 readsec=&HF000 :writesec=&HFO5D: adrsec=&HF016 <33> 360 PRINT TAB(14);CHR$(133);TAB(33) ;CHR$(133) ;TAB( 
<74> 130 RESTORE 170 57) ;CHR$(133) ;TAB(77) ;CHR$ (133) 
32) 140 FOR iX=1 TO 5 < 6> 370 PRINT TAB(14);CHR$(133),TAB(33) ;CHR$(131) ;STRI 
<66> 150.. READ ind% (i%) ‚massage$ (ix) NG$ (23,138) ;TAB(57);CHR$ (137); 
<46> 160 NEXT <68> 380 PRINT TAB(77);CHR$(133) 
<48> 170 DATA 13,"(U)mblättern, (W)iederbeleben, (N)eue <40> 390 PRINT TAB(14);CHR$(133);TAB(77),CHR$(133) 
Diskette oder (E)nde ?" <23> 400 PRINT TAB(14) ;CHR$ (133) ;TAB(77);CHR$(133) 
< 2» 180 DATA 22,"(W)iederbeleben, (N)eue Diskette oder <70> 410 PRINT TAB(14) ;CHR$(133) ;TAB(26);" Wiederbelebu 
(E)nde ?" ng von gelöschten Dateien"; 
<98> 190 DATA 30," (N)eue Diskette oder (E)nde ?" <57> 420 PRINT TAB(77);CHR$(133) 
«58» 200 DATA 25,"Diskette einlegen, danach Taste drück <29> 430 PRINT TAB(14);CHR$(133);TAB(77),CHR$(133) 
en" <53> 440 PRINT TAB(14) ;CHR$(133) ;TAB(21) ;CHR$(164) ;"198 
<76> 210 DATA 31,"Dateinummer eingeben : " 8 V 1.0 von U.Rieger. "; 
<29> 220 FOR iX=1 TO 5 <83> 450 PRINT "Brokstedt im Juli 1988" ;TAB(77);CHR$(13 
<90> 230.. massage$ (i%)=massage$ (i%)4be11$ 3) 
<43> 240 NEXT <35> 460 PRINT TAB(14) ;CHR$(133) ;TAB(77);,CHR$(133) 
«253 250°! <50> 470 PRINT TAB(14);CHR$(131) ;STRING$ (62,138) ;CHR$ (1 
<43> 260 REM *** Bildschirmaufbau +++ 37) 
<29> 270 : «T7T6> 480 GOSUB 1490 
<59> 280 PRINT stoff$;curoff$:;homes;c1s$ <44> 490 DIM files(64) 
Listing Rescue Listing Rescue 





Für unsere ständige PC-Rubrik suchen wir BASIC-Programme sowie Tips & Tricks in folgenden 
Dialekten: 


BASIC2 -» GW-BASIC - QUICK-BASIC »- TURBO-BASIC 
Alles, was Sietun müssen, ist Ihr selbstgeschriebenes Programm mit einer Bedienungsanleitung als 


Textdatei auf Diskette zu speichern und uns diese zuzusenden. Als Lohn für Ihre Mühe winkt bei 
Veröffentlichung ein interessantes Honorar. 


Übrigens liegen die besten Programme meist in den Schubladen (wo sie absolut nichts zu suchen 
haben) und werden aus fehlender Überzeugung nicht eingesandt. Da wir grundsätzlich jedes 
Programm ausführlich begutachten, könnte Ihre Einsendung, versehen mit unseren Verbesserungs- 
vorschlägen, vielleicht der Hit des nächsten Monats werden. 


Also, auf bald.... 
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<18> 500 : <97> 1130 PRINT FNsc$(15,0) ;erdown$; 
< 2> 510 REM *** Gelöschte Dateien suchen *** <11> 1140 ERASE File$:GOTO 480 
<22> 520 : <16> 1150 : 
<86> 530 dma=&HF100:j%=0 < 0> 1160 REM *** Umblättern *#** 
< 7» 540 FOR sektor%=0 TO 3 223 1170: 
<19> 550.. CALL readsec <23> 1180 PRINT FNsc$(19,0) ;erdown$; :2z%=0:G0TO 900 
<43> 560.. FOR i%X=1 TO 16 <28> 1190 : 
<45> 570.... IF HEX$(PEEK(dma))<>"E5" THEN GOTO 660 <89> 1200 REM *** Ende **+* 
<29> 580.... 3%=j%+1 < 6> 1210 : 
<41> 590.... File$(j%)=STR$ (sektor%)+HEX$ (dma) <61> 1220 PRINT curon$;ston$:END 
<62> 600.... FOR n%=1 TO 11 <12> 1230 : 
<B7> 610.....4 dma=dma+1 <75> 1240 REM *%*%* Datei Wiederbeleben *+** 
<29> 620...... file$(j%)=File$(j%)+CHR$ (PEEK(dma)) <18> 1250 : 
<85> 630.... NEXT <66> 1260 mX=5 
<17> 640.... IF INSTR(file$(j%) ‚STRING$(11,CHR$(&HE5))) <24> 1270 GOSUB 1390 
THEN GOTO 720 <47> 1280 INPUT "" ‚dateix% 
<98> 650.... dma=dma-11 <63> 1290 PRINT curoff$; 
<21> 660.... dma=dma+32 <97> 1300 sektorX=VAL(LEFT$(file$(datei%),2)) 
<80> 670.. NEXT <86> 1310 dma=VAL("&H"+MID$(File$(datei%) ,3,4)) 
<76> 680.. POKE adrsec ‚sektor%+1 «22» 1320 POKE adrsec ‚sektor% 
<23> 690.. dma=&HF100 <10> 1330 CALL readsec 
<40> 700 NEXT <21> 1340 POKE dma,O 
<93> 710 GOTO 730 < 9» 1350 CALL writesec 
<14> 720 j%=j%-1 <56> 1360 ERASE file$ 
< 8> 730 IF j%>0 THEN GOTO 780 <70> 1370 GOTO 480 
<11> 740 PRINT FNsc$(22,34),;invon$;" Keine Datei gefund <29> 1380 : 
en ";invoff$ <30> 1390 PRINT FNsc$(30,10);STRING$(65," ") 
<55> 750 m%=3 <60> 1400 IF m%=5 THEN GOTO 1430 
«63» 760 GOSUB 1390 <67> 1410 PRINT FNsc$ (30, ind% (m%)) ;massage$ (m%) 
<81> 770 GOTO 980 <92> 1420 RETURN 
< 7> 780 IF j%>i THEN GOTO 820 <16> 1430 PRINT FNsc$ (30, ind% (m%)) ;massage$ (m%) ;curon$; 
<10> 790 PRINT FNsc$(16,23);"Auf dieser Diskette befind <98> 1440 RETURN 
et sich 1 Datei,...... " <25> 1460 : 
< 4 800 PRINT FNsc$(17,23);"die als gelöscht betrachte <40> 1470 REM *** MC-Programm ab &HF000 einlesen **+* 
wird: Nase} <31> 1480 : 
<16> 810 GOTO 840 <51> 1490 MEMORY &HEFFF 
<29> 820 PRINT FNsc$(16,23);"Auf dieser Diskette befind <19> 1500 RESTORE 1550 
en sich" ;j%;"Dateien," <68> 1510 FOR adr=&HF000 TO &HFOTF 
«772 830 PRINT FNsc$(17,23);"die als gelöscht betrachte <47> 1520.. READ byte$:POKE adr ‚VAL(CHR$ (38) +CHR$ (72) +b 
t werden :"; yte$) 
<95> 840 z%=0 < 2» 1530 NEXT 
<42> 850 FOR k%=1 TO 5% < 1> 1540 RETURN 
<47> 860.. 2%=2%+1 <94> 1550 DATA C3,34,F0,00,09,00,00,00 
<29> 870.. PRINT FNsc$(2%+19,35) ;USING"##":KX; <93> 1560 DATA 00,00,00,00,0A,00,01,00 
<71> 880.. PRINT ". ";RIGHT$(file$(K%) ,11) <90> 1570 DATA 00,00,00,00,0B8,00,00,00 
<54> 890.. IF z%=8 THEN GOTO 950 <62> 1580 DATA 00,00,00,00,0C,00,00,F1 
<42> 900 NEXT <45> 1590 DATA 00,00,00,00,0D,00,00,00 
<86> 910 PRINT FNsc$(2%+20,35) ;STRING$(16," ") <44> 1600 DATA 00,00,00,00,0E,00,00,00 
<43)> 920 mx%=2 <73> 1610 DATA 00,00,00,00,0E,32,11,04 
<59> 930 GOSUB 1390 <83> 1620 DATA FO0,CD,05,00,0E,32,11,0C 
<77> 940 GOTO 980 <19> 1630 DATA FO,CD,05,00,0E,32,11,14 
«84» 950 IF j%=kK% THEN GOTO 920 <22>.1640 DATA FO,CD,05,00,0E,32,11,1C 
<43> 960 m%=i <57> 1650 DATA FO,CD,05,00,0E,32,11,24 
<67> 970 GOSUB 1390 < 72 1660 DATA FO,CD,05,00,C9,0E,32,11 
<59> 980 a$=INKEY$ | <60> 1670 DATA 2C,FO,CD,05,00,C9,00,00 
<15> 990 IF a$="" THEN GOTO 980 <59> 1680 DATA 00,00,00,00,00,00,00,00 
<94> 1000 IF j%=0 THEN GOTO 1040 <62> 1690 DATA 00,00,00,00,00,00,00,00 
<22> 1010 IF j%=k% THEN GOTO 1030 <37> 1700 DATA 00,00,00,00,00,00,00,00 
<72> 1020 IF a$="U" OR a$="u" THEN GOTO 1180 <16> 1710 : 
< 9> 1030 IF a$="W" OR a$="w" THEN GOTO 1260 <14> 1720 REM #** Escape-Folgen *** 
<17> 1040 IF a$="N" OR a$="n" THEN GOTO 1100 «223 1730 : 
< 7> 1050 IF a$="E" OR a$="e" THEN GOTO 1220 <56> 1740 be11$=CHR$ (7) :esc$=CHR$ (27) 
<56> 1060 PRINT be11$;,:GOTO 980 < 6> 1750 stoff$=esc$+"0":ston$zesc$+"1" 
<20> 1070 : <25> 1760 c1s$=esc$+"E" :home$=esc$+"H":erdowng=sesc$+"J" 
<89> 1080 REM *** Neue Diskette untersuchen *+* < 5» 1770 DEF FNSc$(Z%,s%)=esc$+"Y"+CHR$ (2%+32)+CHR$ (S% 
<26> 1090 : +32) 
<37> 1100 m&=4 <11> 1780 curon$=esc$+"e":curoff$=esc$+"f" 
< 4> 1110 GOSUB 1390 <12> 1790 invon$=esc$+"p":invoff$=esc$+"q" 
<20> 1120 WHILE INKEY$="":WEND <34> 1800 RETURN 
Listing Rescue Listing Rescue 
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Verbesserter Durchblick 


Dateien ohne Probleme schnell und 
sicher wiederfinden 


Welchem LocoScript-Anwender ist es noch nicht passiert? Da sucht man ei- 
nen Text, den man vor einiger Zeit bearbeitet hat, kann sich aber nicht 
mehr erinnern, wo er abgelegt wurde. Auf welcher der 10, 20, ... 100 ... 
Disketten befindet sich das “Objekt der Begierde“? Und die Sucherei 


geht los: 


1. Diskette einlegen, über Fl Ver- 
zeichnis reinholen, erste Hälfte durch- 
schauen, mehrmals u drücken, zweite 
Hälfte durchschauen, nicht gefunden, 
Diskette rausholen, umdrehen und wie- 
der einlegen, über Fl Verzeichnis rein- 
holen, erste Hälfte durchschauen, 
mehrmals den Cursor rechts betätigen, 
zweite Hälfte durchschauen, nicht ge- 
funden, Diskette rausholen, 


2. Diskette einlegen usw., usw. ... 
Wenn man Pech hat, dauert’s bis zur 
letzten, und der Tag ist gelaufen, die 
Bearbeitung wird auf morgen verscho- 
ben, und der Benutzer ist genervt und 
ärgert sich über sich und das eigene 
Chaos. Hier sind die Festplatten-Besit- 
zer zu beneiden, die über die Suchfunk- 
tion den Text ausfindig machen lassen 
können. So komfortabel kann man es 
bei Disketten-Speicherung leider nicht 
haben. Aber mit dem folgenden Pro- 
gramm kann man sich das Disketten- 
Einlegen, Durchsuchen 1. Teil, Ta- 
sten, Durchsuchen 2. Teil etc. sparen, 
denn es ermöglicht den Ausdruck der 
Inhaltsverzeichnisse in gut lesbarer 


und benutzerfreundlicher Form. Das 
Suchen muß man immer noch selbst 
machen, aber es geht entscheidend 
schneller. Das Programm unterstützt 
den Ausdruck in zwei Formaten: 


1. Der kleinformatige Ausdruck (etwa 
DIN-A-7 hoch) kann als “Beipackzet- 
tel“ jeder Diskette beigelegt werden. 
Das Format entspricht der Größe einer 
Diskette. 


2. Der großformatige Ausdruck (etwa 
DIN-A-5 quer) füllt eine Karteikarte. 
Er kann dann auf eine solche aufge- 
klebt oder aufkopiert werden (in jedem 
besseren Kopierladen für —,30 DM zu 
machen). Zusätzlich besteht für den 
großformatigen Ausdruck die Mög- 
lichkeit, die Druckqualität zu wählen, 
denn für ein vorläufiges Inhaltsver- 
zeichnis genügt gegebenenfalls eine 
mindere Qualität. Die Handhabung des 
BASIC-Programms ist so simpel, daß 
sie nicht weiter ausgeführt werden 
muß. Für den Titel der Diskette, der je- 
weils neu eingegeben werden kann, 
stehen nicht nur acht Zeichen wie in 
LocoScript zur Verfügung, sondern 
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25. Damit ist bereits eine genauere Be- 
schreibung möglich. Des weiteren ist 
das Programm so angelegt, daß pro 
Gruppe maximal zehn Textnamen aus- 
gedruckt werden. Diejenigen, die in 
den Gruppen mehr als zehn Texte ab- 
gelegt haben, sollten hier dem eigenen 
Chaos vorbeugen und die Texte ent- 
sprechend sortieren - in der Regel ist 
das durchaus möglich. (Falls dies un- 
möglich erscheint, läßt sich das Pro- 
gramm durch Veränderung eines Wer- 
tes mühelos anpassen. 


Arbeitsweise 


Zur Arbeitsweise des Programms ein 
paar kurze Anmerkungen. Die Namen 
der Textfiles liegen auf jeder Diskette 
zweimal vor. Einmal befindet sie sich 
als Paket innerhalb eines speziellen Be- 
reiches, auf den beim Diskettenwech- 
sel als Ganzes zugegriffen wird; des- 
halb erscheint das Inhaltsverzeichnis so 
schnell am Bildschirm. Zum anderen 
sitzen sie am Beginn jedes einzelnen 
Textfiles, an dem sich auch der “Iden- 
tifikationstext“ und die Daten des 
Stamm-Layouts etc. befinden. Dieses 
Programm wurde so konzipiert, daß es 
nicht auf das “Paket“ zugreift (die Ge- 
schwindigkeit kann aufgrund des lang- 
sameren Druckers sowieso nicht ge- 
nutzt werden), sondern auf die File- 
Anfänge. Es listet zunächst die Namen 
der ersten vier Gruppen, kursiv und 
unterstrichen, auf und dann deren 
Textnamen. Anschließend geschieht 
das gleiche für die zweiten vier Grup- 
pen. Die obenerwähnte Beschränkung 
auf zehn Texte pro Gruppe findet dabei 
ihre Erklärung in der Festlegung der 
Durchläufe durch die entsprechende 
Programmschleife. 


Die Anzahl dieser Durchgänge und da- 
mit die maximale Anzahl der Texte pro 
Gruppe läßt sich also durch eine Verän- 
derung des Richtwertes in Zeile 860 
und Zeile 1210 individuell anpassen. 
(Dadurch verändert sich natürlich auch 
das Format des Ausdrucks.) Diese Ar- 
beitsweise wurde gewählt, um bei einer 
eventuellen Ausdehnung des Pro- 
gramms auch die “Identifikationstex- 
te“ leichter einbeziehen zu können; 
diese befinden sich jedoch nicht im Pa- 
ket-Verzeichnis, sondern an den Tex- 
tanfängen. 


Des weiteren erleichtert der sukzessive 
Zugriff die Aufarbeitung für den 
Druck. Daß dieses Programm mit Si- 
cherheit keinen Geschwindigkeitsre- 
kord aufstellen wird, fällt dabei nicht 
sonderlich ins Gewicht. Es ist — so 
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meinten wir — klein, aber nützlich, 
und es ist für jeden LocoScript-Benut- 
zer hilfreich, egal, in welcher Weise 
der JOYCE ansonsten Verwendung 


Dieses Programm ist in BASIC geschrieben. Nach dem Eintippen sollte es zuerst 
mit SAVE“KATALOG.BAS“ <RETURN> abgespeichert werden. Später 
kann es dann unter CP/M mit A>BASIC KATALOG <RETURN> und 


findet. 


unter BASIC mit RUN“KATALOG“ <RETURN> gestartet werden. 


(Hubert Küsters/rs) 

















<28> 10 OPTION RUN <92> 430 PRINT c1s$ 
<42> 20 REM tKttsstsscccseccceeer INITIALISIERUNG *#* < 1> 440 PRINT statoff$ 
TEE 2 2 2 2 22 22 22 2 2225 <36> 450 PRINT FNw$(27,0,4,90) 
<22> 30 e$=CHR$ (27) <38> 460 PRINT invon$ 
< 7» 40 cls$ze$+"E"+e$+"H" <31> 470 PRINT FNpkt$(30,1)" Name der Diskette ";:INPUT 
<10> 50 invon$=e$+"p" na$ 
<51> 60 invoff$=e$+"q” <80> 480 PRINT FNpkt$(31,1)" Format des Ausdrucks? (K)1 
<19> 70 curson$=e$+"e" ein /(G)roß ",:INPUT 0$ 
<45> 80 cursoff$=e$s+"f" <39> 490 IF 0$="k" OR 0$="K" OR 0$="g" OR 0$="G" THEN G 
<82> 90 statoff$=e$+"0" OTO 500 ELSE 480 
<83> 100 staton$=e$+"i" <58> 500 IF 0$="k" OR 0$="K" THEN LPRINT 8$;"S";CHR$(O) 
<40> 110 DEF FNpkt$(zeile,spalte)=e$+"V"+CHR$ (32+zeile) B 
+CHR$ (32+spalte) <82> 510 IF 0$="k" OR 0$="K" THEN LPRINT e$;"SI";CHR$(1 
<96> 120 DEF FNw$(z,8,h,b)=e$+"X"+CHR$(31+Z)+CHR$ (31+s) 5); 
+CHR$ (31+Nn) +CHR$ (31+b) <62> 520 IF 0$="k" OR 0$="K" THEN LPRINT e$;"3" ;CHR$(20 
<72> 130 dent$=e$+"m"+"0" ) 
<77> 140 dkorr$=e$+"m"+"1" <95> 530 t=1.6 
< 5» 150 kursiv$=e$+"E"+e$+"4"+0$+"-"+"1" «32» 540 IF 0$="G" OR 0$="g" THEN t=1 
<69> 160 normal$=e$+"F"+e$+"5"+e$+"-"+"0" «553 550 IF 0$="G" OR 0$="g" THEN GOTO 560 ELSE GOTO 60 
<12> 170 REM o 
<53> 180 REM Kuss ss schrie VORTEXT FIrKHHrcce <25> 560 PRINT FNpkt$(32,1)" Ausdrucksqualität E / K"; 
ek :INPUT q$ 
<16> 190 REM «55> 570 IF q$="e" OR q$="E" THEN LPRINT dent$; 
<84> 200 PRINT cis$ <69> 580 IF q$="kK" OR q$="K" THEN LPRINT dkorr$; 
<36> 210 PRINT cursoff$ < 8) 590 IF q$="e" OR a$="E" OR qa$="k" OR q$="K" THEN G 
<44>» 220 PRINT FNw$(10,20,15,50) OTO 600 ELSE 560 
<30> 230 PRINT invon$ <91> 600 PRINT invoff$ 
<52> 240 PRINT "..eccneeeoneunnunne aidhehsigterafs:area erehehelejaragere < 4> 610 PRINT FNw$(0,0,32,90) 
ee < 7» 620 REM 
«55> 250 PRINT " Diese kleine Programm dient zum Ausdru <80> 630 REM +Httr three AUSDRUCK DISKETTENN 
ck der... " AME aka 
< 6> 260 PRINT " Inhaltsverzeichnisse von LOCOSCRIPT-Di <11> 640 REM 
sketten!. " <82> 650 LPRINT TAB(15/t);:LPRINT e$+CHR$ (14) ;:LPRINT n 
< 1> 270 PRINT " Dabei bestehen mehrere Möglichkeiten:. a$;:LPRINT e$+CHR$ (20) 
ehren ar <13> 660 REM +rrttsts ee BEARBEITUNG BLOCK 1 
< 95 280 PRINT " Ausdruck in 2 Formaten: DIN A 5 quer ( ek 
Taste G). " <79> 670 REM Kirk Ausdruck Gruppentit 
2463: 290. PRINT ""sleisıesotauete Biere alere An ara eatenate DIN A 7 hoch ( ol) KirErr 
Taste K). " <59> 680 LPRINT kursiv$ 
<74» 300 PRINT " Bei DIN A 5 kann die Qualität des Druc < 7» 690 PRINT cis$ 
kes...... ” <61> 700 z=1:y=0:x=1 
«155 310 PRINT " ausgewählt werden. (Entwurf/Korrespond <30> 710 FOR g=1 TO 4 
enz)..... “ <90> 720. DATA 0,1,2,3 
«25> 320 PRINT " Einschränkung: Es werden pro Gruppe ma «72» 730. READ 0$ 
ximal.... " <75» 740. OPTION FILES 0$ 
«76» 330 PRINT " 10 Textnamen ausgedruckt. ......e...0.- <27» 750. 9$=FIND$("*.GRP") 
nnnnnne 5 <88> 760. PRINT invon$ 
<42> 340 PRINT " Bitte Diskette einlegen, Papier anlege <75> 770. PRINT FNpkt$(x,y) 9$;: 
n und.... " <51> 780. PRINT invoff$ 
«64> 350 PRINT " eine beliebige Taste drücken!!!!...... <44> 790. LPRINT TAB(y/t) LEFT$(9$,8);: 
AD “ <40) 800. y=y+22 
<92> 360 PRINT ".ocnceuree.. Hubert Küsters............ <43> 810 NEXT 
EEE s <83> 820 y=0:x=2 
<59> 370 PRINT "....... EI RE <«30> 830 LPRINT 
REEREEN <26> 840 REM +++k+kktts44#244488% Ausdruck File-IHamen 1 
<72> 380 WHILE INKEY$="":WEND EHER EI EIER: 
«39> 390 PRINT FNw$(0,0,32,90):PRINT invoff$ «21» 850 LPRINT normal$ 
< 1> 400 REM <52> 860 FOR i=1 TO 11 
< 1> 410 REM *#++tt4ss HEHE DRUCKEREINSTELLUNG <54> 870. FOR j=1 TO 4 
re <19> 880.. DATA 0,1,2,3 
< 5> 420 REM <18> 890.. READ 0$ 
Listing Durchblick Listing Durchblick 
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| | ———————— rm JDYBE 








< 0> 900.. OPTION FILES o$ 

<49> 910.. F$=FINDS("*.*" ,z) 

<64> 920.. IF f$="" THEN 950 

<77> 930.. PRINT FNpkt$(x,y) F$ 

<76> 940.. LPRINT TAB(y/t) fF$; 

<66> 950.. y=zy+22 

<94> 960. NEXT 

<62> 970. RESTORE 880 

<82> 980. z=Z+1:x=x+1:y=0 

<60> 990 NEXT 

<42> 1000 LPRINT:LPRINT 

<24> 1010 REM isst sH ss BEARBEITUNG BLOCK 2 
re 

<53> 1020 REM Ft Ausdruck Gruppentite 
De 2 2 3 2 2 2 2 2 2 22 272272722722 2723 

<74> 1030 RESTORE 1070 

< 6> 1040 LPRINT kursiv$ 

<26> 1050 z=1:x=17:y=0 

<39> 1060 FOR h=1 TO 4 

<67> 1070. DATA 4,5,6,7 

<97> 1080. READ u$ 

<48> 1090. OPTION FILES u$ 

<97> 1100. h$=FIND$("*.GRP") 

<77> 1110. PRINT invon$ 

<30> 1120. PRINT FNpkt$(x,y) h$ 

<37> 1130. PRINT invoff$ 

<75> 1140. LPRINT TAB (y/t) LEFT$(H$,8);: 

<73> 1150. y=y+22 

< 3> 1160 NEXT 


Listing Durchblick 


Neue Speichererweiterung für CPC 


* RAM-Erweiterung 64, 128, 256 oder 512K für alle CPCs 
Alle Versionen nachträglich auf Maximal-Version aufrüstbar 
* optional 2 EPROM-Sockel mit frei wählbarer ROM-Nummer (1-15) 
* Patchprogramm für CP/M 2.2 (63K CP/M). Endlich laufen dBase, Multiplan und Wordstar 
* Patchprogramm für CP/M Plus. CP/M Plus auch für CPC 464/664 
* resetfeste RAM-Disc (maximal 448K) für CP/M 2.2 und CP/M Plus 
* resetfeste RAM-Disc unter BASIC (nur bei EPROM-Version) 
* 100% kompatibel zu dk’tronics RAM-Erweiterung und Silicon-Disc 
* Anschluß über den Expansionsport (kein Eingriff in den Rechner nötig) 
* geringe Abmessungen (mit Gehäuse: 160 x 83x 20 mm) durchgeführter Erweiterungsbus 


RAM-Erweiterung mit Software für CP/M 2.2 und CP/M Plus auf 3“-Diskette 
(wahlweise auch 3.5“- oder 5.25“-Diskette) 


Preise: ohne RAMs .99,- DM 64 KByte. ...149,— DM 128 KByte. 199,- DM 
256 KByte.. 299,- DM 512 KByte. ...449,— DM 


Aufpreis für zusätzliche EPROM-Sockel und Software im EPROM 49,- DM 


X-Laufwerk tür cpc 464/664/6128 


Das X-Laufwerk ist ein Systemlaufwerk, das anstelle eines 3*-Zweitlaufwerks am CPC 664/6128 
mit eingebautem oder am CPC 464 mit zusätzlichem 3*“-Controller betrieben wird. Das X-DDOS- 
Betriebssystem wird zusammen mit einer EPROM-Karte an den CPC angeschlossen. 716 K nutz- 
bare Kapazität unter BASIC, CP/M 2.2 und CP/M Plus. 
* Die RAM-Belegung von X-DDOS ist nahezu 100% kompatibel zu AMSDOS. 
* Es kann softwaremäßig zwischen X-DDOS und AMSDOS umgeschaltet werden. 
* Es werden Anpassungsprogramme für CP/M 2.2 und CP/M Plus mitgeliefert. 
* Die CP/M Plus Anpassung ist auch auf einem CPC 464/664 mit 64K RAM-Erw. lauffähig. 
* Die 224-KByte EPROM-Karte hat bei installiertem X-DDOS noch eine Restkapazität von 
208 KByte. 
* Damit X-DDOS auch in beliebigen anderen EPROM-Karten lauffähig ist, wurde völlig auf 
einen Kopierschutz verzichtet. 
* Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauscht werden. 


X-DDOS-EPROM, Software & Beschreibung 99,- DM 
224-KByte EPROM-Karte, X-DDOS, Software & Beschreibung 239,— DM 
5.25“ oder 3.5“ X-Laufwerk, 224-KByte EPROM-Karte, X-DDOS, Softw. & Beschr. 589,— DM 
5.25“ oder 3.5“ X-Laufwerk, RAM-Erw. ohne RAMs, X-DDOS, Softw. & Beschr. 589,— DM 











EPROM- Karte 224 KByte für alle CPC 


* Für die EPROM-Typen 2764, -128, -256 

* ROM-Nummern 0-15 frei wählbar 

* 7 Sockel 

* Bei 27256 zwei ROM-Nummern pro Sockel 

* Durchgeführter Expansionsport 

* Software zum automatischen Erstellen von Programmodulen (BASIC und BIN-Dateien) 
Fertiggerät für CPC 464/664 DM 145,— Fertiggerät für CPC 6128 DM 169,— 
Modul-Software auf 3*-Diskette DM 95,- 


Zubehör für EPROM-Karten 


EPROM 2764 DM 7,50 ProtextEPROM DM 124,— Maxam-EPROM DM 124,— 
EPROM 27128 DM 8,50 Promerge Plus-EPROM DM 114,— Utopia DM 9,- 
EPROM 27256 DM 11,50 X-DDOS-EPROM DM 99,— Alpha-ROM DM 3,— 
EPROM 27512 DM 21,50 Time-ROM (batteriegepufferte Echtzeituhr) + EPROM DM 135,— 
Industrie-Elektronik GmbH 
Brahmsstraße 9, 6835 Brühl 
Telefon 06202/71417 


<44> 1170 LPRINT 

<77> 1180 REM #+++++++++4t+r +43 Ausdruck File-Namen 
Pe 3 3 3 3 2 2 212 2 2 2 2 2 2 2 2 2 2 202 20: 

<61> 1190 LPRINT normal$ 

<53> 1200 x=18:y=0:i=1:j=1:z=1 

<43> 1210 FOR i= 1 TO 11 

<33> 1220. FOR j= 1 TO 4 

<37> 1230.. DATA 4,5,6,7 

< 4> 1240.. READ h$ 

<47>*1250.. OPTION FILES n$ 

<50> 1260.. fF$=FIND$("*.*",z):IF f$="" THEN 1290 

< 7> 1270.. PRINT FNpkt$(x,y) f$ 

<35> 1280.. LPRINT TAB(y/t) f$; 

<49> 1290.. y=y+22 

<75> 1300. NEXT 

<90> 1310. RESTORE 1230 

<90> 1320. z=Z+1:x=x+1:y=0 

<97> 1330 NEXT 

<66> 1340 LPRINT:LPRINT:LPRINT:LPRINT 

<75> 1350 REM 


<20> 1360 REM *++x#t4kt#xx424%444% RE-INITIALISIERUNG * 
BE 2 2 2 2 2 2 1212 2127272 2 2 2 2 2 272 212 272 


<81> 1370 REM 

<32> 1380 LPRINT e$;"DC2";CHR$(18) 
<14> 1390 LPRINT e$;"T"; 

< 2> 1400 LPRINT CHR$(27),"2"; 

<98> 1410 PRINT curson$:PRINT statong 
<69> 1420 OPTION FILES "0" 

<83> 1430 END 


Listing Durchblick 


Bitte ausschneiden und versenden 


JA, ich interessiere mich ganz unverbindlich für: 


neue JOYCE Programme 
JOYCE-Umtauschaktion 
Wochenend-Telefonservice 

neue Software für alle Gewerbetreibende 
kostenloser Software-Test 
Individualsoftware 

neues LocoScript mit Erweiterungen 
Public-Domain Fakturierung 

PCW / JOYCE Spezial 

(neue Anwenderzeitschrift) 








ID DOUÜIDOTDTD] 








Büro für Software-Entwicklung 
— => 


Othesir. 1 - 5275 Bergneustadt 
Telefon 02261/40054 - Fax 02261/49623 
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LocoScript -— Prowort 
ohne Probleme 


Transfer von LocoScript-Texten nach 
Prowort einfach gemacht 


Jeder, der mit LocoScript und Prowort arbeitet, hat sich sicher schon über 
die “falsche“ Konvertierung von LocoScipt-Texten in das ASCII-Format 


geärgert. 


In PC-International wurde vonF. Man- 
tek (Joyce Plus; Textverarbeitung mit 
Prowort und NEC P6) angemerkt, daß 
bei Texten aus LocoScript für die Bear- 
beitung unter Prowort die Umlaute mit 
der <Ersetzen> Funktion ausge- 
tauscht werden müssen. Dieser Um- 
weg ist aber bei LocoScript 1 nicht er- 
forderlich, wenn die Texte bei der 
Konvertierung mit KONVERT.COM 
über die Funktion A: ASCIH auf Pro- 
wort übernommen werden, solche 
Texte werden von Prowort richtig 
übersetzt. 

Für die Beschleunigung des Verfah- 
rens ist es aber nützlich, die Texte un- 
ter LocoScript “In Bildschirmformat“ 
in ASCII-Files umzuwandeln, da man 
es sich dann erspart, die Texte erst un- 
ter Prowort zu laden, zu formatieren 
und dann zu konvertieren. Wenn die 
Texte nämlich in Bildschirmformat ge- 
speichert werden, setzt LocoScript ans 
Ende jeder Zeile RETURNs. Auch das 
Seitenlayout bleibt weitgehend erhal- 
ten. Derart erstellte ASCII-Files kön- 
nen dann direkt durch KON- 
VERT.COM von Prowort bearbeitet 
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werden, ohne das man erst den Text in 
Prowort laden und speichern muß. 

Bezüglich LocoScript-2-Texten, er- 
stellt mit deutscher Tastatur, hat Herr 
Mantek aber recht, diese Texte werden 
durch KONVERT.COM falsch über- 
setzt. LocoScript-2-Texte sollten des- 
halb vorher mit einem kleinen BASIC- 
Programm bearbeitet werden. Die 
Grundlage des Programms findet sich 
im Sonderheft 1, UMWAN.BAS. Für 
die Umwandlung von LocoScript-2- 
Texten ist es allerdings nicht geeignet, 
da die zweite Version den Umlauten 
andere Dezimalwerte zuweist als Loco- 
Script 1. Deshalb mußten die ASCH- 
Werte geändert werden. Das Pro- 
gramm wurde von mir auch bezüglich 
der Benutzerfreundlichkeit geändert 
und zwar ist es jetzt möglich, mehrere 
Texte hintereinander zu bearbeiten, da 
der Name der Ausgabedatei direkt ein- 
gegeben werden kann und somit ein 
Überschreiben des vorher übersetzten 
Textes unterbleibt. Auch habe ich dar- 
auf verzichtet, die Ausgabedatei anzei- 
gen zu lassen, da es mir zu lange ge- 
dauert hat. Wer darauf nicht verzichten- 






























möchte, kann jaden TYPE-Befehl wie- 
der einfügen. Nun ist es ohne weiteres 
möglich, den Text durch KON- 
VERT.COM für Prowort aufzuberei- 
ten, um ihn zu bearbeiten oder auszu- 
drucken. Es ist bei langen Texten dann 
auch lohnend, diese Arbeit auf sich zu 
nehmen, um eine Rechtschreibkontrol- 
le durch SPELL.COM vorzunehmen. 





Arbeitsanweisung in Stichworten: 


1. ASCII-File, Bildschirmformat, 
erstellen 

2. LocoScript verlassen 

3. Prowort laden 

4. BASIC unter Prowort durch 
*BASIC aufrufen 

5. LOCO2PRO.BAS starten (durch 
die Namensgebung können bei 
Verwendung von Laufwerk M: 
beliebig viele Texte nacheinan- 
der umgewandelt werden.) 

6. BASIC verlassen, KONVERT. 
COM starten 

7. A: ASCI auf Prowort; wählen 

— 





(Ulf Liebelt/rs) 








Dieses Programm ist in BASIC geschrieben. Nach dem 
Abtippen sollte es zuerst mit SAVE“LOCO2PRO.BAS“ 
abgespeichert werden. Später kann es dann unter 
CP/M mit A>BASIC LOCO2PRO und unter BASIC 
mit RUN“LOCO2PRO" gestartet werden. 














LISTING >LOCO2ZPRO<, REMARK = >’<. <97> 220 a= 223 : n = 212 : GOTO 240 : REM großes. U 
<13> 230 a=. 96 : n= 186 : GOTO 240 : REM. ....... ß 
<29> 10 REM TEXTUMWANDLUNG in ASCII für LOCOSCRIPT 2.12 <37> 240 REM *+++244:2%% Umwandlungen Kktkkkktrr 
Deutsche Tastatur <49> 250 stelle% = INSTR(1,text$(eintraege) ‚CHR$(a)) 
< 3» 20 REM geschrieben von Ulf Liebelt <86> 260 IF stellex = 0 GOTO 290 
<89) 30 DIM text$(250) <70> 270 MID$ (text$(eintraege) ‚stelleX,1) = CHR$(n) 
«75» 40 INPUT "ZU TRANSFORMIERENDE ASCII-DATEI. $$$.$$$ | <81> 280 GoTo 250 
: ",datei$ <59> 290 umlauf% = umlauf% + 1 
<91» 50 INPUT "Zieldatei $$$.$$$: " ‚neudat$ < 8> 300 IF umlauf% <= 7 THEN GOTO 160 ELSE GOTO 310 
<76> 60 OPEN "I" ,1,datei$ \ 67» 310 REM *+++#+ Einlesen in neue Datei "neudat$” *** 
«92» 70 OPEN "O0" ,2,neudat$ | ++ 
<11> 80 eintraege = O0 | < 5> 320 PRINT #2 ,text$(eintraege) 
69) 90 umlaufx = 1 | «24» 330 umlaufx = 1 
<46> 100 WHILE NOT (EOF(1)) | <65> 340 REM **+*%*%* Überlaufschutz #++#+t+* 
<18> 110 eintraege = eintraege + 1 | <62> 350 IF eintraege > i00 GOTO 400 
<58> 120 LINE INPUT #1,text$(eintraege) <93> 360 WEND 
<32) 130 PRINT text$(eintraege) <92> 370 CLOSE 
<53> 140 IF text$(eintraege) = "" GOTO 310 <13> 380 beil$ = CHR$(7) : PRINT be11$ : PRINT be1l$ : 
< 4) 150 REM Definition der zu tranformisrenden Zeichen PRINT 
<79> 160 ON umlauf% GOTO 170,180,190,200,210,220,230 <43> 390 END 
<79> 170 a= 243 : n = 240 : GOTO 240 : REM kleines ä <23> 400 REM.....: +*+t#+tt*#+ Überlaufschutz ++rrtkttktx 
<96> 180 a= 227 : n= 208 : GOTO 240 : REM großes. A <34> 410 COMMON umlauf%,datei$ 
< mn 190 a= 244 : n= 243 : GOTO 240 : REM kleines ö <50> 420 COMMON RESET 
<13> 200 a= 228 : n= 211 : GOTO 240 : REM großes. Ö <55> 430 DIM text$(250) 
<72> 210 a= 245 !:n= 244 : GOTO 240 : REM Kleines ü < 3> 440 GOTO 100 
Listing Transfer Listing Transfer 
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goes to the university 


Ein Erfahrungsbericht über den 
Umgang mit dem JOYCE 


Daß JOYCE, ’Die Wende im Büro’, nicht nur in Büros seinen Platz gefun- 
den hat, müßte wohl inzwischen selbst der Firma Amstrad klar sein. Sein 
Einsatz in den verschiedensten Bereichen wurde bereits im JOYCE-Sonder- 
heft Nr. 2 ausgiebig beschrieben (Dr. Klaus Stratemann, Ode to Joyce). Fol- 
gender Bericht beschreibt, was ein 8-Bit-Rechner vom Format des JOYCE 
im naturwissenschaftlichen Bereich leisten kann. 


Die Anwendungsbereiche für kleinere 
Systeme liegen auf diesem Gebiet vor 
allem bei der Textverarbeitung und sta- 
tistischen und grafischen Auswertung 
der Versuchsergebnisse. Hierbei lie- 
gen die IBM-kompatiblen PC/XT/ATs 
vorne, da sie neben einem professio- 


nellen Software-Angebot auch Hard- 
wareerweiterungen bieten, die für Spe- 
zialanwendungen, wie z.B. Auswer- 


tung von Analogsignalen über 
A/D-Wandler und entsprechende Soft- 
ware, erforderlich sind. 


Ich arbeite am Zoologischen Institut 
der Johann-Wolfgang-Goethe-Univer- 
sität in Frankfurt am Main. Bei mir 
hielt der damals ’größte’ Schneider vor 
etwa 2 1/2 Jahren Einzug, als ich — 
wie könnte es anders sein — ein günsti- 
ges System zur Textverarbeitung such- 
te. PCs waren zu dieser Zeit noch we- 
sentlich teurer als heute, und der inzwi- 
schen so beliebte Atari ST konnte den 
Benutzer durchaus noch ein- bis zwei- 
mal pro Tag mit Systemabstürzen er- 
freuen. So wurde mir der Entschluß, 
auf das ’gute, alte CP/M’ zurückzu- 
greifen, nicht allzu schwergemacht. 
Inzwischen kenne ich fast ein Dutzend 
Leute an unserem Institut - vom Stu- 
denten bis zum Professor, die mit dem 
JOYCE arbeiten. Mehr als die Hälfte 
davon benutzen das Gerät ausschließ- 
lich zur Textverarbeitung mit Loco- 
Script. 


Bei der statistischen und grafischen 
Auswertung der Versuchsergebnisse 
wird der Einsatz dadurch erschwert, 
daß leider keines der mir bekannten 
Programme für den JOYCE wissen- 
schaftlich einsatzfähig ist: Es ist eben 
doch ein Unterschied, ob die Umsatz- 
entwicklung der letzten fünf Jahre oder 
der Zusammenhang zwischen Körper- 
temperatur und Stoffwechselaktivität 
dargestellt werden soll. DR Graph er- 
laubt es zum Beispiel nicht, funktionale 
oder kausale Zusammenhänge darzu- 
stellen. Was die statistischen Verfah- 
ren angeht, sieht es noch schlechter 
aus! 

Statistic Star läßt nicht nur die Mög- 
lichkeit vermissen, das Programm ver- 
nünftig zu beenden, es fehlen auch An- 
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Abb. 1: Auch Dateneingaben lassen sich komfortabel gestalten. 
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Abb. 2: Umfangreiche statistische Tests in BASIC programmiert. 
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ktuelle Daten : 


Internen: ession 
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Abb. 3: Grafische 
Ausgabe einer Re- 
gressionskurve. 








gaben über die Verfahren, nach denen 
die wenigen statistischen Größen be- 
rechnet werden. Wie so oft war es also 
notwendig, eigene Programme zu 
schreiben. 

Mir kam es von Anfang an besonders 
auf die grafische Darstellung der Daten 
an. Es sollte zumindest ein Erstellen 
von Vorlagen für Zeichnungen mög- 


lich sein. So begann ich, zunächst mit 
CBASIC zu programmieren, und 
wechselte, als die Arbeitsweise von 
GSX langsam bekannt wurde, zu Tur- 
bo Pascal. Inzwischen kann ich meine 
gesamte Datenauswertung —- ein- 
schließlich der Erstellung von Grafiken 
ohne GSX — mit dem JOYCE erledi- 
gen (Abbildung 1. Ein Kollege von mir 


hat ein ganzes Paket von statistischen 
Tests als BASIC-Programm verwirk- 
licht, inzwischen — nach dem Kauf des 
Mouse Pack jetzt in ’Mouse-BASIC’ 
programmiert — liegt es in neuer Ver- 
sion mit erweiterter Grafik vor (Abbil- 
dungen 2 und 3). Die Ergebnisse sind 
durchaus ansehnlich — vor allem, 
wenn man die Grafiken auf einem 
24-Nadel-Drucker ausdrucken läßt. 
Damit sind wir beim Thema Hardware- 
Erweiterungen angekommen. Neben 
Fremddruckern kommen Mouse bzw. 
Grafiktablett und 5 1/4-Zoll-Laufwerk 
zum Einsatz; zum einen zur qualitativ 
besseren Ausgabe der Grafiken, zum 
anderen zum Datenaustausch mit ande- 
ren Rechnern (IBM, Atari), der inzwi- 
schen über das 5 1/4-Zoll-Laufwerk 
abläuft. 
Fazit: Wenn man etwas “Entwick- 
lungshilfe“ betreibt, steht auch der 
JOYCE durchaus seinen Computer: 
Wenn man bereit ist, einige Zeit und 
Programmieraufwand zu investieren, 
stellt er eine günstige Alternative zu 
den beschriebenen Arbeitsbereichen 
dar. 

(Eckhard Wirth/rs) 





DISKETTENLAUFWERKE 





Qualitätslaufwerke von TEAC anschlußfertig für Schneider- 
Kabel, Netzteil, Metallgehäuse 
CPE 530 BB 298.- 
unter CP/M, inkl. DiskPara und MsCopy, lieferbar in 3,5” (298.-) 
oder 5,25”-Ausführung (348.-). 
stehen bis zu 830 KB (form., CP/M) 
zur Verfügung. Verarbeitung von 
79.- MsCopy (Aufpreis) 20.- 
Siehe Tests in Schneider Aktiv 2/87, c’t5/87,PC Int. 6/87,CPC 

Anschlußfertige Dis- 7 
JOYCE kettenlaufwerke 3,5”: 2 9.- 

2x 80 Spuren, 1 MB, 

5,25” mit eigenem Netzteil: 378.- 
Festplattenkit 30 MB 698.- 
Auch lieferbar als 40 MB Kit (42 MB, 40 ms, Autopark) 928.- 

33 Disketten-Laufwerk, 720 KB, 
3,5 279.- 
Schmiedstr. 11 : 6750 Kaiserslautern - Tel. 06 31/6 70 96 und 67097 
1 Jahr Garantie - 12.- DM Versandkosten - Lieferung durch Post oder UPS 


computer, 2x80 Spuren, 1 MB unformatierte Kapazität, inkl. 
Anschlußfertige Diskettenlaufwerke, 830 KB form. Kapazität 
D iskPara Auf beliebigen Zweitlaufwerken 
fast allen Fremdformaten. 
Magazin 4/87, Happy Comp. 4/87, 8. M&T Sonderheft. 
problemloser Anschluß 
MsCopy A.9.-, Aufpreis 5,25” 40/80 Track schaltbar fürMsCopy 20.- 
inkl. Lüfter, deutscherEinbauanleitung und kompl. Einbausatz. 
mit Einbaurahmen, anschlußfertig 
Frank Strauß Elektronik 
per Nachnahme - Bei Bestellung unbedingt genaue Konfiguration angeben. 
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DELO Comp.Tech. 


AMSTRAD PPC Si2 mit i1Laufwerk 1699.- 
AMSTRAD PPC 512 mit 2Laufwerke 1999.- 


AMSTRAD PC 1512 S MONO ..... 1299 .- 
Monochrom-Monitor MD für PPC 512 399.- 
PC 1640 1Laufwerk,Monochrom 1699.- 
PC1640 2Laufwerke,Monochrom .. 1999 .- 
PC 1640 ILaufwerk ,20MB,Mono ... 2599.- 


PC 1640 iLaufwerk ,20MB,EGA....... 3599.- 


AMSTRAD PCW 8512 .....unessnonnunnneeen 1299.- 
AMSTRAD PCW 9512 ...rnnnonnnnnnnnn000 1699 .- 
AMSTRAD Drucker DMP 3160 .......... 599.- 
AMSTRAD Drucker LQ 3500 ....... 899.- 
AMSTRAD PC 2086 _...ersessessnnnenn lieferbar 
AMSTRAD PC 2286 _.....eessnenenennn lieferbar 


AMSTRAD CPC 6128 .......ureosennener ab 799.- 


Vortex Festplatten für PC 1640, 
für Joyce/PCW PPC 512 u. EURO PC 


20 MB ............- 1398.- 20MB ........... 1498.- 
30MB .....r... 1598.- 30MB ...... 1698.- 
#0OMB .....ccii 1898.- 40MB ......... 2298.- 
80MB .......... 2098.- 60 MB .......... 2498.- 
Filecard‘'s Seagate für PC 1512 u. PC 1640 
20MB ............ 689.- 30MB .......... 829.- 
Nashua Disketten 5,25" 2D .....esenenee 16.- 
NEC1037A 3,5" 1MB ...insrennenennenee 179.- 
Einbaurahmen 3,5" auf 5,25" ........ 4+9.- 
Super Mouse 100% MS kompatibel 79.- 
CPU 8087-8 ....389.- Mouse PAD.. 15 .- 
NEC P2200 .....859.- NECPSG+ ..... 1648.- 


Auf AMSTRAD und Vortex Produkte gewähren wir 2% Skonto. 
Ab 500.-DM Bestellwert Porto und Verpackung frei. 
Preisliste anfordern. Änderungen vorbehalten. 


460O Dortmund 15 Kranenbusch 28 
= 02317356511 
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SUCHGOTO 


Ausdrücke suchen in BASIC- 


Programmen 


Anregung zum vorliegenden Programm gab das Programm “Zeilen ver- 
stecken“ von Herbert Storek im JOYCE-Sonderheft 3/88, Seite 95, welches 
eine hervorragende Möglichkeit darstellt, ein BASIC-Programm wirklich 
mit einem Listschutz zu versehen, was wohl, wie jedem bekannt sein sollte, 
mit SAVE“NAME“,p nicht gewährleistet ist. 

Einen Nachteil hat dieses Programm auch: Die Sprungzeilen dürfen nicht 


versteckt werden! 


Nachteil nur insofern, daß man die Zei- 
len suchen und in aufsteigender Weise 
eingeben muß. Eine Zeile vergessen 
bedeutet: noch einmal alles von vorne. 
Was lag also näher, als ein Programm 
zu schreiben, das die Zeilen sucht, die 
Zeilennummern ermittelt und sie an- 
schließend sortiert und ausdruckt. 
Dies macht SUCHGOTO.BAS folgen- 
dermaßen: 

Zunächst muß das zu bearbeitende Pro- 
gramm mit RENUM 10001,,1 durch- 
numeriert werden und dann als ASCII- 
File, also mit SAVE“prog.ASC“,A 
abgespeichert werden. Die Extention 
.ASC hat den Vorteil, daß das Original 
in der alten Form erhalten bleibt. ASC 
ist aber nicht zwingend, da der Name 
des File komplett eingegeben werden 
muß. Die hohen Zeilenzahlen sind not- 
wendig, um stets fünfstellige Sprung- 
ziele suchen zu können. 

Und noch eine Bedingung muß erfüllt 
sein: Zwischen den Sprungbefehlen 
und der Zeilennummer darf nur ein 
Blank sein, also THEN 10055 

und nicht THEN 10055 . 


Wie arbeitet suchgoto? 
Zuerst wird SUCHGOTO.BAS wie 





laden und sofort mit RUN gestartet. 
Als nächstes will das Programm wis- 
sen, wieviele Zeilen das zu bearbeiten- 
de ASCII-Programm hat, anschließend 
noch den Namen, mit der Extention 
eingeben. Die Zeilenanzahl wird in 
Zeile 120 für DIM- Anweisungen be- 
nötigt. Da alle Programmzeilen nach 
den sieben Sprungbefehlen durchsucht 
werden, müssen alle Variablen mit der 
Zeilenzahl dimensioniert werden. 


Das ASCII-File wird nun Zeile für Zei- 
le eingelesen und die DATAs aus Zeile 
330 geholt. Nun kann die Suche in der 
Reihenfolge der DATAs also von 
GOTO bis THEN beginnen. 


Dabei werden Ausdrücke wie z.B. 
PRINT hinter THEN erkannt und igno- 
riert. Die Syntax ON .. GOTO wird na- 
türlich nach allen Sprungzielen hinter 
GOTO untersucht. Fehler im Ablauf 
können in den REM-Zeilen vorkom- 
men, weil hier Syntax-Fehler “er- 
laubt“ sind, wie z.B. keine Blanks, 
Sonderzeichen nach Sprungbefehlen. 
(Beispiel:”’’”’SUCHGOTO.BAS ). Da 
es sich in diesen Fällen grundsätzlich 
nicht um Sprungbefehle handeln kann, 
wird die “fehlerhafte“ Zeile mit dem 
ON ERROR GOTO unbeachtet gelas- 





(ERR=13) vermieden wird. 


Den Ablauf der Durchsuchung kann 
man auf dem Bildschirm verfolgen. 
Wie in Bild 1 gezeigt, nennt JOYCE 
zunächst die Zeilennummer, in die ge- 
sprungen werden soll, daneben die 
wievielte das ist und in der dritten Spal- 
te die noch freien Bytes. Hier wurde 
nicht die Form FRE(““), sondern 
FRE(0) gewählt (siehe Zeile 580), weil 
FRE(0) erst dann auf Speicherplatzsu- 
che geht, wenn erforderlich. Mit 
FRE(““) würde das Programm wesent- 
lich langsamer. Sind alle Sprungziele 
gefunden, werden diese auf dem 
Schirm unsortiert zur Kontrolle ausge- 
geben ( Mehrfachnennungen noch 
nicht eliminiert), anschließend sortiert 
und auf Schirm und Drucker ausgege- 
ben. Die Sortierroutine wurde neben- 
bei bei ADREVA aus CPC-Heft 3/86 
entnommen, eine recht flotte Routine. 
Um die Ausgabe der Sprungziele nicht 
zu unübersichtlich werden zu lassen, 
werden die fünfstelligen Zeilennum- 
mern in die dreistellige Form zurück- 
verwandelt. Am Schluß des Pro- 
gramms werden noch die notwendigen 
Aufräumungsarbeiten getan: Schirm 
und Drucker zurücksetzen, Speicher 
freimachen und das Hilfs-File “ziele“ 
gelöscht ( Zeilen 910 und 920 ). 


Die Grenzen dieses Programms sollen 
nicht unerwähnt bleiben: Haben die zu 
durchsuchenden Programme mehr als 
15-18 KB Speicherbedarf oder sind 
mehr als 500 Zeilen vorhanden, wird 
es eng. Am Beispiel des Programms 
WERKZEUG.BAS aus dem CPC-Heft 
6/87 von Dr. Marwedel kann man wäh- 
rend der Abarbeitung gut erkennen und 
verfolgen, wie JOYCE immer wieder 
auf Speicherplatzsuche gehen muß. 


WERKZEUG.BAS hat knapp 500 Zei- 
len und benötigt im ASCII-Format 
21 KB. Da wird es zum Schluß wahr- 














üblich mit LOAD“SUCHGOTO“ ge- sen, so daß TYPE MISMATCH _ lich sehr eng. 
(Jürgen Brandt/rs/me) 
1906? i 17220 INFORMATION: 
10097 2 17166 Vor dem Starten des Programms speichern Sie es erst 
19056 3 17973 mit SAVE“SUCHGOTO.BAS“ ab. 
10087 4 16836 Später kann es mit RUN“SUCHGOTO“ unter BASIC 
10aBs | Karl und mit A> BASIC SUCHGOTO unter CP/M aufgeru- 
10031 7 13398 fen werden. 
10063 8 1398? 
19086 9 18906 
ne % 1600, LISTING >SUCHGOTO<, REMARK = >'<. 
19099 i2 12798 <52> 10 ''"Programm SUCHGOTO.BAS zum Suchen von Einspru 
ngzeilen in BASIC-Programmen 
Hier die unsortierten Sprungziele ; <70> 20 PRINT CHR$(27);"E";CHR$(27);"H":'"" CLS+HOME 
<40> 30 CLEAR 
67 97 5& 27 52 63 3ıi 83 85 Er} % 99 <65> 40 INPUT "Wieviele Zeilen hat das Programm. ";zeil 
Ind hier die sortierten Sprungziele ! gess.00 ZNPUN ie neitt Yan ASCHE ie. Srbmaa 
«50» 70 PRINT 
ai aı ö 52 5: 63 a =S PRINT CHR$(27);"E"SCHREC2T);"H" 
a & El) 3? 3 <13> 100 '''Dimensionieren und Einladen des Programms 
ä <20> 110 ' 
Listing SUCHGOTO 
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<54> 120 DIM. komma$(zeilen),x$(zeilen),ziel$(zeilen),z «32> 560 ziel$(p)=MID$(x$(j),a+LEN(y$)+i+weiter,5) 
iel(zeilen) <23> 570 ziel(p)=VAL(ziel$(p)) 
<87> 130 '''Nur mit 10001,,1 neunumerierte ASCII-abgesp <40> 580 IF ziel(p)<9999 THEN p=p-1 ELSE PRINT ziel(p), 
eicherte Programme !!!! p,FRE(0O) : 
<63> 140 OPEN "I",#1l,name$ <90> 590 IF y$ <> "GOTO" THEN 630 
<87> 150 WHILE NOT EOF(1) <54> 600 komma$(p)=MID$(x$(j),a+LEN(y$)+6+weiter,1) 
<97> 160 LINE INPUT #1,z$ <87> 610 weiter=weiter+6 
«70» 170 i=i+1 <98> 620 IF komma$(p)="," THEN p=p+1:G0TO 560 
<73> 180 x$(i)=z$ <78> 630 RETURN 
<97>» 190 WEND <31> 640 ' 
<83> 200 CLOSE #1 <45> 650 ''' Einladen der unsortierten Sprungziele 
<21> 210 ' <35> 660 ' 
<35> 220 ''' Suchen nach den Einsprung-DATA's < 9» 670 OPEN "I",1,"ziele" 
<25> 230 ' <98> 680 WHILE NOT EOF(1) 
«333 240 FOR ax=1 TO 7 < 7» 690 ss=ss+tl 
<86> 250 READ y$ <98> 700 INPUT #1,ziel(ss) 
<19> 260 FOR j=1 TO i <87> 710 WEND 
<67> 270 a=INSTR(aa+l,x$(j),y$) <86> 720 CLOSE 
< 0> 280 aa=a:'''Erweiterung f}r Kettenbefehle ON..,GoTt «30» 730 ' 
° ;@ <90> 740 '''Sortieren der gefundenen Zeilennummern aufs 
<40» 290 GOSUB 520 :''' Suchen nach Sprungzielen | teigend und Ausgabe 
<26> 300 IF a=0 THEN 310 ELSE 270 / «34» 750 ' 
< 0> 310 NEXT j / <85> 760 PRINT :PRINT 
<44» 320 NEXT ax P, < 8> 770 PRINT. " Und hier die sortierten Sprungziele :" 
<33> 330 DATA "GOTO","ELSE","GOSUB", "RESUME", "RESTORE", zPRINT 
"RUN", "THEN" <39> 780 LPRINT :LPRINT "Sortierte Liste der Sprungziel 
x28> 340 ' e im Programm. ";name$ 
<78> 350 '''Auflisten der gefundenen Sprungziele unsort <96> 790 LPRINT 
iert <51> 800 WIDTH 80 
<32> 360 ' <64> 810 WIDTH LPRINT 60 
<24> 370 PRINT:PRINT " Hier die unsortierten Sprungziel < 0> 820 FOR i=1 TO ss:z=i 
e :":PRINT <14> 830 FOR y=i TO ss 
<37> 380 FOR u=s1 TO p <44> 840 IF ziel(z)<=ziel(y) THEN 860 
<64> 390 IF ziel(u)>9999 THEN PRINT ziel(u)-10000; <79> 850 z=y 
<37> 400 NEXT <66> 860 NEXT y 
<23> 410 ' <58> 870 ziel(O)=ziel(i):ziel(i)=ziel(z):ziel(z)=zie1(0 
<76> 420 '''Abspeichern der gefundenen Sprungziele unso ) 
rtier <12> 880 IF ziel(i)=ziel(i-1) THEN 900 ELSE PRINT ziel( 
<27> 430 ' 1), 
<78> 440 OPEN"O",1,"ziele" <90> 890 IF ziel(i)=ziel(i-1) THEN 900 ELSE LPRINT ziel 
<32> 450 FOR u=1 TO p (1% 
<46> 460 IF ziel(u)>9999 THEN WRITE #1,ziel(u)-10000 «93» 900 NEXT i 
<51> 470 NEXT <16> 910 WIDTH 90:WIDTH LPRINT 255 
<95> 480 CLOSE <24> 920 CLEAR:KILL "ziele" 
<41> 490 GOTO 670 <37> 930 END 
«27» 500 END <34> 940 ' 
<24> 510 ' < 9> 950 '''Fehlerbehandliung f}r TYPE MISMATCH 
<38> 520 ''' Suchen nach Sprungzielen <38> 960 ' 
<28> 530 ' <84> 970 IF ERR = 13 THEN 990 
<97> 540 p=p+tl:weiter=0 <47» 980 END 
«76> 550 ON ERROR GOTO 970 < 9» 990 RESUME 630 
Listing SUOCHGOTO Listing SUCHGOTO 





ELTEWDETSRSSEHTUNES TEN 


Schneider 
Euro PC mit Monitor MM 12 + MS-Works 1199,- 
Euro PC mit Colormonitor CM 14 1649,— 
20 MB-Festplatte extern für Euro PC 929,- 
Target PC (Portable AT) 4699,- 
Tower AT 220 mit Monitor MM 12 3149,— 
Schneider Telefax SPF 100 2299,- 
20 MB-Festplatte (Seagate, 65 ms) 

+ Controller + Kabelsatz 569,- 
20 MB-Filecard (Seagate, 40 ms Zugriffs- 

zeit, einbau- und anschlußfertig für alle 

PC 1512 und PC 1640) 749,— 
30 MB-Filecard (Seagate, 40 ms) 849,— 


Amstrad 
CPC 6128 mit Grünmonitor 769,- 
mit Farbmonitor 1049,- 
PC 1640 mit 2LW + Filecard 20 MB 30 MB 
Monochrommonitor 2449,— 2549,- 
Colormonitor 2769,- 2869,— 
EGA-Monitor 3289,— 3389,— 
Portable Computer PPC 512 mit 2 Disketten- 
laufwerken 3,5“ 1729,— 
Joyce PCW 9512 mit Typenraddrucker 1449, — 
24-Nadeldrucker LQ 3500 699,— 


Superknüller 

Epson Tintenstrahldrucker IX 800 (240 Z/Sek.) 799,- 
Siemens BTX-System T 3315 + 15“-Farbmonitor 999,— 
Monitor 14“Flatscreen (schwarzweiß/bernstein) 249,- 
NEC EGA-Monitor Multisynch Il (dt. Version) 1399,- 


Epsondrucker (dt. Version mit FTZ-Nummer) 
Anschlußfertig an AMIGA, Schneider PC oder 
CPC, Atari ST oder IBM-Kompatible 

LX 800 

FX 850 

LQ500 

LQ 2550 

LQ850 

LQ 1050 

SQ 2500 


Stardrucker (dt. Version mit FTZ) 
LC-10 mit Commodore od. Centronicsint. 
LC-10 Color Farbdrucker mit Interface 
LC-24-10 mit Centronicsinterface 


NEC-Drucker (dt. Version mit FTZ) 
NEC P 2200 89,-; NEC P 7 Plus 
NEC Drucker P 6 Plus 


‚Atari 

1040 STF mit Monochrommonitor SM 124 
STF mit Farbmonitor SC 1224 

Mega 2 + SM 124 + Festplatte 20 MB 

Mega 4 + SM 124 + Festplatte 20 MB 


NEU: Händlerpreisliste 
Bitte anfordern mit Gewerbenachweis 


Ordnung und Übersicht 
ER schaffen die beliebten 
an unsens DMV Sammelmappen 
Abonnenten 


Vermerken Sie bei 
Schriftverkehr und 
Zahlungen neben der 
vollständigen 
Anschrift stets Ihre 
Abo-Nummer. 


Sie vermeiden damit 
unnötige Verzögerun- 
gen bei der 
Bearbeitung Ihres 
Abonnements. 


Vielen Dank 


Versandkostenpauschale (Warenwert bis DM 1000, -/darüber): 
Vorauskasse (DM 8,-/20,-), Nachnahme (DM 11,20/23,20), 
‚Ausland (DM 18,-/30,-). 

Lieferung nur gegen NN oder Vorauskasse; Ausland nur Vor- 
auskasse. 

Preisliste (Computertyp angeben) gegen Zusendung eines 
Freiumschlags. 


Ihre DMV- 
Versandabteilung 


CSV Riegert 


Schloßhofstr. 5, 7324 Rechberghausen, 
Tel. (0 71 61) 5 28 89 
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Der LQ 5000di ist für die Verarbeitung 
von Einzelblatt- und Endlospapier bis 
zu 15 Zoll (38 cm) geeignet, und hat 
eine Druckgeschwindigkeit von 288 
Zeichen pro Sekunde. Nach dem Off- 
nen des Paketes findet man außer dem 
Drucker und dem Farbband einen klei- 
nen Karton mit einigen Plastikteilen 
und beiliegenden Metallstangen. Des 
Rätsels Lösung ist schnell gefunden: 
Der Papierhalter, unerläßlich beim Ar- 
beiten mit Endlospapier, wird als klei- 
ne Bastelzugabe mitgeliefert, ist aber 
anhand von Bildern im Benutzerhand- 
buch leicht zusammenzusetzen. 


Ein Drucker — zwei 
Schnittstellen 


Der LQ 5000di verfügt über eine paral- 
lele und eine serielle Schnittstelle, 
kann also daher an die meisten Compu- 
tersysteme angepaßt werden. Die se- 
rielle Schnittstelle kann durch, auf der 
Rückseite sitzende, gut erreichbare 
DIP-Schalter an die jeweiligen Gege- 
benheiten angepaßt werden. 

Die DIP-Schalter sind in je drei Grup- 
pen zusammengefaßt. Außer den Zu- 
satzfunktionen, wie internationale Zei- 
chensätze, Druckqualität und Form des 
Ausdrucks, können noch Drucker- 
Emulationen für den EPSON LQ 
1000/1500 oder den IBM Proprinter 
angewählt werden. 

Der Druckkopf des LQ 5000di ist in 
seinen Ausmaßen nicht gerade klein, 
aber durch Kühlrippen ausreichend ge- 
kühlt. Darüber hinaus verhindert ein 
Berührungsschutzgitter den verhäng- 
nisvollen Griff auf den Kopf, der, wie 
bei allen Nadeldruckern, sehr heiß 
wird. Eine Schutzfunktion verhindert 
dazu eine übermäßige Erhitzung des 
Druckkopfes, steigt die Temperatur 
über 130 Grad, beendet der Drucker 
seine Arbeit und läßt sich erst durch ei- 
nen Eingriff von außen wieder ein- 


Das Arbeitstier 


Der neue AMSTRAD LQ 5000di 
im Test 


Die 24-Nadel-Drucker gehören heute fast schon zur 
Standardausstattung von PC-Besitzern, Neuerscheinun- 
gen gehen deshalb meistens in Richtung Büroalltag. So 
auch der neue LQ 5000di, der für das DIN-A3-Blattfor- 
mat ausgelegt ist. 


schalten. Die Druckkopfführung be- 
steht aus einem dicken, sehr stabilen 
Rundstab, dagegen ist der Antriebsrie- 
men leider ziemlich dünn ausgefallen. 


Das zu verarbeitende Endlospapier 
wird über die Gummiwalze zum Trak- 
tor, einem echten Zugtraktor übrigens, 
geführt. Bei Verwendung von Einzel- 
blättern steht dem Anwender eine Au- 
toload-Funktion zur Verfügung, wel- 
che die Blätter automatisch, nach Ein- 
stellen am Papiervorschubknopf, ein- 
zieht. Die Papierhalterung garantiert 
dabei einen geraden Einzug, die Hand- 
habung ist sehr leicht und schnell zu 
lernen. 


Gut einstellen läßt sich auch die Papier- 
stärke, der Schalter befindet sich rechts 
oben auf dem Gehäuse, und nicht ir- 


gendwo im Inneren verborgen, wie bei: 


manch anderen Geräten. 


Das Panel mit den Einstellschaltern 
sitzt gut erreichbar und übersichtlich 
vorne am Gerät. Funktionen, wie 
Formfeed und Linefeed sind direkt ab- 
rufbar, die Einstellung der Schriftart 
und spezieller Druckfunktionen ge- 


schieht mittels eines MODE-Umschal- 
ters. 


Fazit 


Der LQ 5000di ist vornehmlich als Bu- 
siness-Drucker einzusetzen, im Heim- 
gebrauch sind diese DIN-A3-Drucker 
jedenfalls sehr selten anzutreffen. Wer 
sich den Drucker kauft, erhält auf alle 
Fälle ein Gerät, das einer Dauerbean- 
spruchung mühelos standhält. Mit sei- 
nem funktionalen Aufbau gehört er zu 
den Druckern, an die man sich sehr 
schnell gewöhnt, und mit denen das 
Arbeiten Spaß macht. Die Lautstärke 
hält sich dabei ebenfalls in Grenzen, in- 
nerhalb einer Druckerbox, wie es sie 
schon von einigen Firmen im Angebot 
gibt, wird man wohl sogar sehr wenig 
davon mitbekommen, daß man es hier 
mit einem Matrix-Drucker zu tun hat. 
Alles in allem ist der LQ 5000di mit 
seinem Preis von DM 1399, — ein zu 
empfehlendes Gerät, vor allem für die, 
die viel zu drucken haben und ein gutes 
Bürogerät benötigen. 


Info : Drucker LQ 5000di (b) 
DM 1399, AMSTRAD GmbH 
Robert-Koch-Str. 5-7, 6078 Neu-Isenburg 








PC International Druckertest: 


Normale Schrift, 


in mehreren Varianten 


Normale S 





7 





LQ 5000di 


Normale Schrift, Heehsestellet und Tieftgesteliw in mehreren Varianten 


Hochgestellt und Tiefsestelitw in mehreren Varianten 
Normale Schrift, HYoehse»vellt und Tiergestellt 


ift, Neehsestellt und Tiefsestellt 





in mehreren Varianten 





Dies ist 24-Nadel-Briefqualität; 


Dies ist 24-Nadel-Briefqualität; 





Dies ist 24-Nadel-Briefqualität; Umlaute: ä8üAö0ß 
Umlaute: äöüköüß 
Dies ist 24-Nadel-Briefqualität; Umlaute: äöüAöuß 

Umlaute: 





&öuAdu 








Abb. 1: Der 24-Nadel-Drucker LO 5000di von AMSTRAD. Ausgerüstet mit zwei Schnittstellen, pa- 
rallel und seriell, ist er an fast jeden Computertyp anschließbar. 
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Jetzt wird’s bunt... 


PC1512 mit 16 Farben im hochauflösenden 
Modus 640x200 Punkte 


Seit Monaten zirkulieren die verschiedensten Beiträge in GW-Basic bzw. 
Turbo Pascal — meist in sehr kurzer Version — über die Fähigkeit des 
PC1512 von Schneider, auch im 640x200-Modus mit 16 Farben arbeiten zu 
können. Allerdings waren alle Texte und Beispiele hierzu nur spärlich und 
deuteten lediglich an, was alles zu tun ist, um tatsächlich eine 


16-Farbdarstellung zu erzielen. 


Es ist die eine Sache, einen Punkt in al- 
len Farben darzustellen, eine andere je- 
doch, Linien, Boxen, Kreise, Ellipsen, 
Schrift, ausgefüllte Flächen, relative 
Koordinaten usw. auf einfache und 
platzsparende Art und Weise zu erhal- 
ten. 


Über technische Details hierzu ist le- 
diglich im technischen Handbuch des 
PC1512 (Buch 4 zum PC ) etwas zu fin- 
den, die einzelnen Punkte müssen je- 
doch mühsam “herausgelesen“ wer- 
den. Nach langem Probieren und dem- 
zufolge natürlich vielen Mißerfolgen 
ist es dann doch gelungen, hinter die 
gesuchten Geheimnisse zu kommen. 
Das Problem lag eigentlich nur an der 
mangelnden Information. Wie so oft 
hat sich wieder einmal gezeigt, daß die 
sogenannte “Fachliteratur“ nur das 
überall erhältliche PC-“Wissen“ be- 
handelt. 

Will man mehr über die internen Dinge 
wissen, sei es über einen CPC, einen 
PC oder irgendeinen anderen Compu- 
ter: Man halte sich an die Fachzeit- 
schriften. 


Als vorläufiges Ergebnis wurden zu- 
nächst in Turbo-Basic folgende Routi- 
nen in der Datei TB1512HP.BAS (nur 
Databox!) zusammengestellt: 





Farb1512 (16-Farben aktivieren) 
TextModus (Screen 0 zurück) 
Bildschirm- (Grafik) 
Loeschen 
RandFarbe (Border setzen) 
PunktFarbe (Farbe ermitteln) 
PunktSetzen (Punkt setzen) 
LinieVonNach (Linie ziehen) 
LinieNach (Linie ab Cursor) 
BoxVonNach (mit/ohne Füllen) 
BoxNach (mit/ohne Füllen) 
KreisVoll (mit/ohne Füllen) 
Kreissektor (mit/ohne Füllen) 
KreisBogen (Bogen ziehen) 
VielEck (mit/ohne Füllen) 
AusFuellen (geschlossene Flä- 
chen) 
BildschirmPrint (Text) 














Ein Turbo-Basic-Programm, das die 
vorgenannten Routinen als 
$SINCLUDE- Datei nutzt, steht in 
TB1512UP.BAS (nur Databox). 


Um nun auch den Besitzern von GW- 
Basic das PC-Leben farbiger zu gestal- 
ten, wurde sowohl das TB1512UP. 
BAS als auch das TB1512HP.BAS um- 
geschrieben und in den Dateien 
GW1512UP.BAS (nur Databox) und 
GW1512HP.BAS zusammengestellt. 
In der Unterprogramm-Datei stehen im 
Kopf jedes Unterprogramms der Name 
des Unterprogramms (programmtech- 
nisch nicht wichtig) und dahinter in 
Klammern die Variablen, die vor dem 
entsprechenden Aufruf zu laden sind! 
GW1512.BAS (siehe Listing) enthält 
beide Programmteile (Hauptprogramm 
und Unterprogramme) zusammenge- 
bunden als lauffähiges Gesamtpro- 
gramm. 

Es wurde in den Programmen bewußt 
auf Trickprogrammierung und Code- 
Kürzungen verzichtet, um keinem der 
Leser unnötige Verständisschwierig- 
keiten zu bereiten. Ferner sind wohl 
detaillierte Erklärungen zu den Routi- 
nen nicht notwendig, da sich ihr Innen- 
leben eigentlich als sehr überschaubar 
darstellt. Es sind immer dieselben 
Punkte, die es zu beachten gilt: 

Der Farbmodus wird aktiviert, indem 
das “Colour Select Register“ (&H3d9) 
mit 15 geladen wird. Zurückgesetzt 
wird er, indem wieder der ursprüngli- 
che Wert 7 hineingeschrieben wird. Im 
aktivierten Farb-Modus stehen die (üb- 
lichen) 16 Farben mit den Nummern 
0-15 (schwarz bis hellweiß) zur Verfü- 
gung. Der Modus ist solange aktiv, bis 
er mit TextModus, Screen 0, Screen 1 
oder Screen 2 zurückgesetzt wird. 

Die Randfarbe (Border) wird über das 
“Graphics Border Register“ (&H3df) 
gesetzt. 

Eine Mal-Farbe wird dargestellt, in- 
dem die entsprechende Funktion auf 
denjenigen Bildschirmseiten (Planes) 
eine Ausgabe mit Farbe 1 macht, deren 
bitmäßige Adresse im gewünschten 
Farbwert enthalten ist. Auf den ande- 
ren Seiten muß eine Ausgabe mit Farbe 
0 erfolgen. Kompliziert? Nein! 
Beispiel: Gewürnscht ist ein Punkt in 
der Farbe gelb (sie hat die Nummer 
14). Bitmäßig ist das “1110“, gelesen 
von rechts nach links. 

Somit ist auf Seite O die Farbe 0, auf al- 
len anderen Seiten die Farbe 1 auszuge- 
ben. Ist doch einfach! 

Dies geschieht (nachlesbar und nach- 
vollziehbar) im Kern jeder der Routi- 
nen. Das ist die ganze Weisheit. 

Eine Eigenheit bringt diese Technik 
aber mit sich: Da für jede Farbaktivität 
vier Durchläufe gemacht werden, dür- 
fen im Kern der Routine keine relativen 
Pixel- oder Zeichen-Adressen stehen. 
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Sie müssen vor jedem der Plane- 
Durchläufe absolut gesetzt sein. Sehr 
gut ist dies am Beispiel der Prozedur 
(des Unterprogramms) “Bildschirm- 
Print“ zu sehen. 


Noch ein Hinweis: Die GW-Program- 
me laufen nicht unter Turbo-Basic! 
Dies hängt zusammen mit der Varia- 
blenübergabe an Unterprogramme. 


Dieser Artikel mit den dazugehörigen 
Programmen soll Ihnen keine Grafik- 
Toolbox ersetzen. Dazu sind die Pro- 
gramme wegen der bewußt weggelas- 
senen Programmteile für Abprüfungen 
und Fehlerbehandlung nicht unbedingt 
geeignet. Die Prozeduren tun ihre Ar- 
beit, geben aber keinerlei Rückmel- 
dungen über den Ausgang einer Ak- 
tion. 


Der eigentliche Zweck ist einfach zu 
formulieren: Hiermit stehen ein paar 


—— 


Farb1512 

Damit wird der 640*200-Modus für den 
16-Farben-Betrieb eingestellt. Er kann nicht 
mit anderen Modi gemischt werden! Gleich- 
zeitig löscht diese Prozedur den so eingestell- 
ten Grafik-Bildschirm. Keine Parameter. 


TextModus 

Damit wird der Textmodus (SCREEN 0) ein- 
gestellt; der Bildschirm ist gelöscht! Keine Pa- 
rameter. 


BildschirmLoeschen 
Löschen des 16-Farben Grafik-Bildschirms. 
Keine Parameter. 


CprCpw(Gseite) 

Hilfsprozedur, die innerhalb der Anwender- 
Prozeduren zur Registerbesetzung der Farb- 
einstellung benötigt wird! Gseite ist eine Inte- 
ger-Variable. 


RandFarbe(Gfarb) 
Setzt die Randfarbe auf den übergebenen Wert 
in Gfarb (0-15)! Integer-Variable. 


PunktFarbe(Gstep1l,Gx1,Gy1,Gfarb) 

Liefert in Gfarb die Farbe (0-15) des Pixels mit 
der Koordinate Gx1/Gyl. Die Koordinate gilt 
als relative Distanzangabe zum aktuellen 
Standpunkt des Grafik-Cursors, wenn 
Gstepl< >0O ist. Alle Variablen sind Integer- 
Variablen. 


PunktSetzen (Gstep1,Gx1,Gy1,Gfarb) 

Setzt einen Punkt auf die Koordinate Gx1/Gyl 
in Gfarb. Die Koordinate gilt als relative Di- 
stanzangabe zum aktuellen Standpunkt des 
Grafik-Cursors, wenn Gstepl<>0 ist. Alle 
Variablen sind Integer-Variablen. 


LinieVonNach(Gstep1,Gx1,Gy1, 

Gstep2, Gx2,Gy2,Gfarb) 

Es wird eine Linie von Gx1/Gyl nach 
Gx2/Gy2 in Gfarb gezeichnet. Die Koordina- 
ten gelten als relative Distanzangabe zum ak- 
tuellen Standpunkt des Grafik-Cursors, wenn 
Gstepl < >0 / Gstep2< >0 sind. Alle Varia- 
blen sind Integer-Variablen. 





Bild 1: Das Demo- 
programm zeigt die 
Möglichkeiten der 
Grafikerweiterung... 


Routinen zur Verfügung, die benutzt 
werden können, jedoch nicht den An- 
spruch an Perfektion erheben. Dem an 
der Farbgraphik des PC1512 interes- 
sierten Leser geben sie hoffentlich so- 





viel an die Hand, daß er in die Lage 
versetzt wird, seine eigenen Program- 
me mit Grafik-Programmierung zu er- 
weitern. 


(Hans Kleiner/me) 





LinieNach(Gstep2,Gx2,Gy2,Gfarb) 

Es wird eine Linie vom aktuellen Grafik-Cursor 
ab nach Gx2/Gy2 in Gfarb gezeichnet. Die 
Koordinaten gelten als relative Distanzangabe 
zum aktuellen Standpunkt des Grafik-Cursors, 
wenn Gstep2 < >O ist. Alle Variablen sind Inte- 
ger-Variablen. 


BoxVonNach(Gfil,Gstep1,Gx1,Gyl, 
Gstep2,Gx2,Gy2,Gfarb) 

Es wird ein Rechteck von Gx1/Gyl nach 
Gx2/Gy2 in Gfarb gezeichnet. Die Koordinaten 
gelten als relative Distanzangabe zum aktuellen 
Standpunkt des Grafik-Cursors, wenn 
Gstepl <>0/ Gstep2< >0 sind. Das Rechteck 
wird ausgefüllt mit Farbe Gfarb, wenn 
Gfil<>0 ist. Alle Variablen sind Integer-Va- 
riablen. 


BoxNach (Gfil,Gstep2,Gx2,Gy2, 

Gfarb) 

Es wirdeein Rechteck vom aktuellen Grafik-Cur- 
sor ab nach Gx2/Gy2 in Gfarb gezeichnet. Die 
Koordinaten gelten als relative Distanzangabe 
zum aktuellen Standpunkt des Grafik-Cursors, 
wenn Gstep2<>0, das Rechteck wird ausge- 
füllt mit Farbe Gfarb, wenn Gfill< >0 ist. Alle 
Variablen sind Integer-Variablen. 


VollKreis(Gfil,Gstep1,Gx1,Gyl, 

Gra, Gfarb,Gasp!) 

Es wird ein Kreis (eine Ellipse, abhängig vom 
Wert in Gasp!) in Gfarb um den Mittelpunkt 
Gx1/Gyl mit dem Radius Gra gezeichnet. Die 
Koordinaten gelten als relative Distanzangabe 
zum aktuellen Standpunkt des Grafik-Cursors, 
wenn Gstepl<>0, die Fläche wird mit Gfarb 
ausgefüllt, wenn Gfil<>0 ist! Alle Variablen 
außer Gasp! (Real-Zahl) sind Integer-Variablen. 


KreisSektor (Gfil,Gstepl,Gx1,Gyl, 
Gra,Gfarb,Ganf!,Gend!,Gasp!) 

Es wird ein Kreis-Sektor (ein Ellipsen-Sektor, 
abhängig vom Wert in Gasp!, 0-2.4) in Gfarb 
um den Mittelpunkt Gx1/Gy1 mit dem Radius 
Gra gezeichnet. Die Koordinaten gelten als rela- 
tive Distanzangabe zum aktuellen Standpunkt 
des Grafik-Cursors, wenn Gstepl<>0, die 
Fläche wird mit Gfarb ausgefüllt, wenn 


Beschreibung der Unterprogramme 


Gfil<>O ist! Ganf! und Gend! bestimmen 
den Anfang bzw. das Ende des Kreis- oder EI- 
lipsen-Bogens in Grad. Alle Variablen außer 
Ganf!, Gend! und Gasp! (Real-Zahlen) sind In- 
teger-Variablen. 


KreisBogen(Gstep1,Gx1,Gy1,Gra, 

farb, Ganf!,Gend!,Gasp!) 

Es wird ein Kreis-Bogen (ein Ellipsen-Bogen, 
abhängig vom Wert in Gasp!) in Gfarb um den 
Mittelpunkt Gx1/Gyl mit dem Radius Gra ge- 
zeichnet. Die Koordinaten gelten als relative 
Distanzangabe zum aktuellen Standpunkt des 
Grafik-Cursors, wenn Gstepl < >0 ist. Ganf! 
und Gend! bestimmen den Anfang bzw. das 
Ende des Kreis oder Ellipsen-Bogens in Grad. 
Alle Variablen außer Ganf!, Gend! und Gasp! 
(Real-Zahlen) sind Integer-Variablen. 


VielEck(Gfil,Gstep1,Gx1,Gy1,Gra, Ganz, Gfarb) 
Zeichnet ein regelmäßiges Vieleck mit Gra als 
Radius, Gx1/Gyl als Mittelpunkt, Ganz als 
Anzahl der Ecken und Gfarb als Farbe. Die 
Koordinaten gelten als relative Distanzangabe 
zum aktuellen Standpunkt des Grafik-Cursors, 
wenn Gstepl<>0. Die Fläche wird mit 
Gfarb ausgefüllt, wenn Gfil< >0 ist! Alle Va- 
riablen sind Integer-Variablen. 


AusFuellen(Gstepl, Gx1, Gyl, Gfarb, Ggrenz) 
Füllt eine Fläche mit Gfarb (angrenzende Far- 
be ist Ggrenz). Der Punkt Gx1/Gyl muß in- 
nerhalb der Fläche liegen! Die Koordinaten 
gelten als relative Distanzangabe zum aktuel- 
len Standpunkt des Grafik-Cursors, wenn 
Gstepl<>O ist. Alle Variablen sind Integer- 
Variablen. 


BildschirmPrint(Gtxt$,Gfarb) 


Der in Gtxt$ übergebene Text wird in Gfarb an 
der aktuellen Textposition ausgegeben. 





Hinweis: 

Das abgedruckte Programm arbeitet unter GW-BASIC, da die\ 
Verwirklichung der Grafikroutinen in BASIC2 so nicht möglich) 
gewesen wäre. Für Leser, die nicht über GW-BASIC verfügen, 
steht aufder Databox das Demoprogramm als unter DOS lauffä- 
hige EXE zur Verfügung. Ebenfalls auf Databox vorhanden sind 
die Routinen als Unterprogramme in GW-BASIC und als Proze-) 
duren in Turbo BASIC. 
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1000 Krk Er € 
KRAKKKKKKKK KK EKEE K  € 





1010 '*xx Testprogramm fuer 16-Farb-Grafik bei 

640x200 Punkten xxx 

1020 '*x*%* 
xxx 

1030 '**%* Computer: Schneider PC1512 (Farbe) 
xxx 

1040 '*x*%* Sprache : GW-Basic 
xx*% 

1050 'x*xx* z ee == 
xxx 

1060 '**x Name dieser Datei: GW1512.BAS Joyce PCW 8256/8512/9512 
xxx 

10701 K RR 

ERROR 1. LOCO2PRO 

ns ! LocoScript — 2 Texte nun auch ohne Probleme auf Prowort 

1100 ' übertragbar. 

1110 '------------------------------- 






2 2. RESCUE: 


er Tr Salsılsp len Fer Befreien Sie gelöschte Dateien aus dem öden Dasein im Trans- 

1130 DEFINT G,%,Y,I,J bereich. " 

11407 ° 

1150 PI=4*ATN(1) 3. KATALOG: 

VERS SHNARZ OLE RELAUSN ZUXSRDENZZ Suchen Sie irgendein Programm aus Ihrer Diskettensammlung? 
XCYAN=3 , 

1170 XROT=4 : XMAGENTA=5 : XBRAUN=6 Unser Programm Katalog kann Ihnen dabei helfen. 
XWEISS=7 

1180 XGRAU=8 : XHELLBLAU=9 : XHELLGRUEN=10 4. SCHLANGE: 


XHELLCYAN=11 


1190 XHELLROT=12 : XHELLMAGENTA=13 : XGELB=14 
XHELLWEISS=15 


Das beliebte CPC-Spiel auf dem JOYCE PCW. 


1200 5. BONUSPROGRAMM: WALLSTREET e 
1210 GOTO 1520 : "SPRUNG ZUM HAUPTPROGRAMM Spekulieren und überwachen Sie das Geschehen auf dem Bör- 
1220 ' senmarkt. 

12304 5- Allgemeine Routinen -- 





1240 'Unterprogramm TASTE(XWART,XBORD) BEER _ 
1250 IF XWART <> O THEN TASTE$="" : WHILE TASTE$=" EEE ne — 
":TASTE$=INKEY$:WEND P 
1260 GOSUB 10400 PC 1512/1640 und Kompatible 
"Bildschirm loeschen 
1270 GFARB=XBORD : GOSUB 10500 
"Randfarbe setzen (xbord) 


1280 FOR XX=0 TO 2 : GFIL=0 1. DATABANK: 
1290 GSTEPI1=0 : GX1=0+X%X*2 : GY1=0+XX ö i i it einer komfortablen Da- 
1300 GSTEP2=0 : GX2=639-XX*2 : GY2=199-XX : GF Bringen Sie Ordnung in Ihre Daten mit 
ARB=15 | tenbank... 
1310 GOSUB 10880 
'B ich | 
nen | 2. FARBE: j . 
1330 RETURN N Wie man dem PC 1512 zu 16 Farben verhilft, zeigt unser GW- 
1340 ' | BASIC-Programm. Auf der DATABOX befinden sich außerdem 
1350 'Unterprogramm DREHEN(XXANF,XXEND,XXSTEP,PI) f ic- i rtfähige .EXE-Datei. 
1Seohra ah yMeszoe Vmeloon: Mo Ren eine TurboBasic- und eine startfähige 
1370 X1= XM + XAxW*COS(W) : Yl= YM - XAxXW*SIN(W) j 
re | 3, LISSAJOUS-GRAFIK: 
1380 FOR XANZ=XXANF TO XXEND STEP XXSTEP EN R : rar : 
1390 W=XANZ*X2*PI/360 | Mathematische Grafik auf dem PC 1512/1640 im CGA- oder 
1400 xX2= XM + XA*WXCOS(W) : Y2= YM - XAXWXSIN( 1 EGA-Modus. 
w)*1/2.4 5 er 
1410 GSTEP1=0 : GX1=X1 : GYl1=Y1 : GSTEP2=0 : G ya ! 
X2=X2 : GY2=Y2 4. BONUSPROGRAMM: ROBIN GOOD 
1420 GFARB=XANZ MOD 16 : GOSUB 10700 Erobern Sie die Burg des grausamen Königs. Ein Jump- und 
"Linie zeichnen ii r 5 
1430 X1=X2: Yi=y2 Run-Spiel für Reaktionsschnelle... 





1440 NEXT XANZ 
1450 RETURN 











1460 

1470 'Unterprogramm VARI(XM,YM,XR,XFRB,AP,XF,ANF,E 

NDE) 

1480 XM=RND(1)%*639 : YM=RND(1)*199 : XR=RND(1) 

*45 : XFRB=RND(1)*15 Auch im 

1490 AP=RND(1)*2.5 : XF=INT(RND(1)*2) :ANF=RND Ab 1} 
: - Polalalzlaatzsalt} 

(1)*20 : ENDE=ANF+40 Einzelbezugspreis für DATABOX: 

TSOOSRERURNF, PCW - 3"-Disk. PC - 5 1/4"-Disk. 

1510 '------------------------------ 2-22 - 

1520 ' --- Programm-Teile ------- 

a hd ne Im europäischen Ausland......... 320,- DM 

1530 ' 


Im außereuropäischen Ausland. 360,- DM 
Bitte benutzen Sie für Ihre Bestellung die 


1540 GOSUB 10300 
"Farbgraphik aktivieren 











1550 I 222-2. onen se en a Br Abo-Karte. 
1560 XWART=O : XBORD=XBLAU : GOSUB 1240 : "Bild Das Databox Abo kostet: Er 3 
i 5 E e n ungsweise: 

a a : GY1=100 : GSTEP2=0 : Als Diskette für 1/2 Jahr (6 Lieferungen): g 

GX2=633 : GY2=100 Im Inland und West-Berlin......... 150,- DM 2 t 
1580 GFARB=15 : GOSUB 10700 : Im europäischen Ausland.......... 160,- DM AM a a 

"Linie zeichnen Im außereuropäischen Ausland. 180,- DM DE NACH ahmegaBih 

1590 GSTEP1=0 : GX1=320 : GY1=3 : GSTEP2=0 : 2 E en : R 

GX2=320 : GY2=100 h Als Diskette für 1 Jahr (12 Lieferungen): (In das Ausland ist Nachnahme nicht mög- 

Im Inland und West-Berlin......... 300,- DM ich) 
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Eee ee oz ene, 














1600 GFARB=15 : GOSUB 10700 
"Linie zeichnen 
1610 FOR XANZ=1 TO 500 


1620 GSTEP1=0 : GX1=6+RND(1)*312 : GY1=3+RND(1 
)x94 
1630 GFARB=XANZ MOD 15 : GOSUB 10620 


"Punkt zeichnen 
1640 NEXT XANZ 
1650 FOR X = 1 TO 24 


1660 GSTEP1=0 : GX1=322 : GY1=X*4 : GSTEP2=0 : 
GX2=633 : GY2=X%*4 
1670 GFARB=X-1: GOSUB 10700 
"Linie zeichnen 
1680 NEXT 
1690 FOR X = 41 TO 80 
1700 GSTEP1=0 : GX1=X*8 : GY1=3 : GSTEP2=0 
GX2=X*8 : GY2=99 
= LO GFARB=X-1: GOSUB 10700 
"Linie zeichnen 
1720 NEXT 
1730 '----------------- -- -- ----------------------- 





1740 XX=(640-2*6)/32 : YY=(100-2%*3)/32 
1750 FOR X%=0 TO 15 


1760 GFIL=1 : GSTEP1=0 : GX1=6+XX*X : GY1=10 
2HYYRX 

1770 GSTEP2=0 : GX2=633-XX*X : GY2=19 
6-YYxX 

1780 GFARB=X: GOSUB 10880 


"Box zeichnen 
1790 
1800 


1810 XWART=1: XBORD=XROT : GOSUB 1240 : 
'Warten auf Taste 

1820 XX=(640-2*6)/16 : YY=(200-2*3)/16 

1830 FOR Y=0 TO 15 : FOR X=0 TO 15 


1840 GFIL=1 : GSTEP1=0 : GX1=12+X*xxX ı GYl= 
S+Y*YY 2 

1850 GSTEP2=0 : GX2=(X+1)*XX+4 : GY2= 
(Y+1)*YY+2 

1860 GFARB=X+Y : GOSUB 10880 


"Box zeichnen 
1870 NEXT X,Y 


1880 GFIL=1 : GSTEP1=0 : GX1=218 : GY1=35 : GS 
TEP2=0 : GX2=420 : GY2=166 
1890 GFARB=O : GOSUB 10880 
"Box zeichnen 
1900 GFIL=0 : GSTEP1=0 : GX1=220 : GY1=36 : GS 
TEP2=0 : GX2=418 : GY2=165 
1910 GFARB=15 : GOSUB 10880 
"Box zeichnen 
1920 GFIL=0 : GSTEP1=0 : GX1=222 : GY1=37 : GS 
TEP2=0 : GX2=416 : GY2=164 
1930 GFARB=15 : GOSUB 10880 
"Box zeichnen 
1940 FOR X=1 TO 15 
1950 LOCATE X+5,29: GTXT$="Ich schreibe in die 
Box" 
1960 GFARB=X : GOSUB 11770 
"Text ausgeben 
1970 NEXT 
1980 '-------------------------------------- 
1990 XWART=1: XBORD=XMAGENTA : GOSUB 1240 : 
‘Warten auf Taste 
2000 GSTEP1=0 : GX1=6 : GY1=100 : GSTEP2=0 
GX2=633 : GY2=100 
2010 GFARB=15 : GOSUB 10700 
"Linie zeichnen 
2020 GSTEP1=0 : GX1=320 : GY1=3 : GSTEP2=0 : 
GX2=320 : GY2=196 
2030 GFARB=15 : GOSUB 10700 


"Linie zeichnen 
2040 XN=15 : DIM X(XN),Y(XN) : XR=112 : W=360/XN&*P 
1/180 
2050 FOR XJ=0 TO XN-1 
2060 WI=SXU*XW : X(XJ)=160+XR#COS(WI) : Y(Xy 
)=50+XR*SIN(WI)*1/2.4 
2070 NEXT XJ 
2080 FOR XI=0 TO XN-2 : X1=X(XI) : Y1=Y(xI) 


2090 FOR XJ=XI+1 TO XN-1 : X2=X(XJ) : Y2=Y(Xy) 
2100 GSTEP1=0 : GX1=X1 s-.CY1=Y1 : GSTEP2 
=0 : GX2=X2 : GY2=Y2 

2110 GFARB=XJ MOD 16 : GOSUB 10700 


"Linie zeichnen 
2120 NEXT XJ,XI 
2130 '-------------------------------------------- 
2140 XUMRAD=120 : XECK=6 : XDREH=3 : RFAKT=.95 : X 
ANZ=32 
2150 W=2*PI/XECK : A=COS(W) : B=-SIN(W) : C=-B : D 
=A 
2160 WI=XDREH*PI/180 : AI=RFAKT*COS(W1) : Bi=-RFAK 
T*SIN(W1) 
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2170 C1=-Bl : D1=Al : XA=XUMRAD : YA=O 
2180 FOR XJ=1 TO XANZ 


2190 X1l=XA : Y1=YA : XX1=X1+480 : YY1=(-Y1+360 
) * 1/2.4 
2200 FOR XI=1 TO XECK 
2210 X2=AXX1 + BXY1 : Y2=SC*kX1 + D*Y1 : 
2220 xXX2=X2+480 : YY2=(-Y2+360) * 1/2. 
4 
2230 GSTEP1=0 : GX1=XX1 : GYl1=YY1 : GSTEP2 
= 2 GX2=XX2 : GY2=YY2 
2240 GFARB=XJ MOD 16 : GOSUB 10700 

"Linie zeichnen 
2250 X1=X2 : Y1=Y2 : XX1=XX2 : YY1=YY2 
2260 NEXT XI 
2270 X=XA : Y=YA : XA=Al*XX + BI1XY : YA=C1*X + 
DIX*Y 
2280 NEXT XJ 
2290 ' 


2300 FOR W=0 TO 95 STEP .075 : R=95%*(SIN(W+F)+SIN( 








2310 XX=480+R*COS(W) : YY=15+R*SIN(W) * 1/2.4 
2320 IF w=0 THEN GSTEP1=0:GX1=XX:GY1=YY:GFARB 
=0:G0OSUB 10620 "Punkt 
2330 IF W<>O THEN GSTEP2=0:GX2=XX:GY2=YY:GFARB 
=XX MOD 16:GOSUB 10790 
2340 F=F+.005 

"Linie 
2350 
2360 "-=----2772272222 22-2222 
2370 40 TO 38.7 STEP .2 : R=100*SIN((W+F)x. 
8) 
2380 XX=160+R*XCOS(W) : YY=150+R*XSIN(W) * 1/2.4 
2390 IF W=-40 THEN GSTEP1=0:GX1=XX:GY1=YY:GFA 
RB=0:GOSUB 10620 "Punkt 
2400 IF W<>-40 THEN GSTEP2=0:GX2=XX:GY2=YY:GFA 
RB=XX MOD 16:GOSUB 10790 
2410 F=F+.01 

"Linie 


2420 NEXT W 
2430 '----- 77777777777 
2440 XWART=1: XBORD=XBRAUN : GOSUB 1240 
'Warten auf Taste 
2450 XRAD = 40 : XZW = 64 : YZW = 8 
2460 FOR XI=0 TO 2 





2470 GSTEP1=0 : GX1=XI*144+176 : GY1=3 
"Linie zeichnen 
2480 GSTEP2=0 : GX2=XI*144+4176 : GY2=196 : GFA 
RB=15 : GOSUB 10700 
2490 GSTEP1=0 : GX1=6 : GY1=X1I%*48+52 
"Linie zeichnen 
2500 GSTEP2=0 : GX2=633 : GY2=XI*48+52 : GFARB 


=15 : GOSUB 10700 

2510 NEXT XI 

2520 XDIFF=((2*XRAD)+XZW) : YDIFF=((2*XRAD/2)+YZW) 
2530 XM=XRAD+XZW-XDIFF 2: YM=XRAD/2+YZW-YDIFF 


: XFARB=-1 
2540 FOR XI=1 TO 4 : FOR YI=1 TO 4 
2550 XFARB=XFARB+1 
2560 X1=XM+ (XIXXDIFF)-40 : Y1=YM+(YIXYDIFF)-20 
X2=X1+80 : Y2=Y1+40 
2570 XK=XM+(XI*XXDIFF) YK=YM+(YI*YDIFF) 
XECK=11 
2580 GFIL=1 : GSTEP1=0 : GX1=X1 2 GYı=Yı1 : GS 
TEP2=0 : GX2=X2 : GY2=Y2 
2590 GFARB=XFARB : GOSUB 10880 
"Box zeichnen 
2600 GFIL=1 : GSTEP1=0 : GX1=XK 2: GY1=YK : GR 
A=XRAD-2 
2610 GFARB=XFARB+15 : GASP!=0 : GOSUB 11080 
‘"Vollkreis zeichnen 
2620 FOR I=10 TO 30 STEP 5 : XECK=XECK-1 
2630 GFIL=1 : GSTEP1=0 : GX1=XK 2 GY1=YK 
2 GRA=XRAD-I 
2640 GANZ=XECK : GFARB=RND(1)*16 : GOSUB 1 
15307; '"Vieleck zeichnen 
2650 NEXT I 
2660 NEXT YI,XI 
2670 '--------------------------- --- ------ -------- 





2680 XWART=1: XBORD=XWEISS : GOSUB 1240 
"Warten auf Taste 
2690 FOR X=1 TO 100 


2700 GFIL=0O : GSTEP1=0 : GX1=6+RND(1)*527 
GY1=3+RND(1)*123 
2710 GSTEP2=0 : GX2=GX1+RND(1)x*x100 
GY2=GY1+RND(1)*70 
2720 GFARB=RND(1)*16 : : GOSUB 10880 

"Box zeichnen 
2730 GSTEP1=0 : GX1=GX1+(GX2-GX1)/2 : GY1=GY1+ 
(GY2-GY1)/2 
2740 GGRENZ=GFARB : GFARB=X MOD 16 : GOSUB 116 
80 : "Fläche füllen 
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2750 NEXT X 





2770 XWART=1: XBORD=XGRAU : 
"Warten auf Taste 
eneN GFIL=0 : GSTEP1=0 : GX1=120 : GY1=6 = IGSTERZ 
=0 GX2=520 : GY2=193 
2790 GFARB=15 : GOSUB 10880 : 
"Box zeichnen 


GOSUB 1240 : 


2800 GSTEP1=0 :GX1=8 :GY1=4 :GFARB=6 :GGRENZ=1 
5 : GOSUB 11680: "Fläche 

2810 GSTEP1=0 :GX1=320 :GY1=100 :GFARB=8 :GGRENZ=1 
5 : GOSUB 11680: ‘Fläche 

2820 FOR X=3 TO 23 

2830 LOCATE X,2 :GTXT$=" Ich werde " :GFARB 
=RND(1)*15 :GOSUB 11770 

2840 LOCATE X,67 :GTXT$=" kugelrund " :GFARB 
=RND(1)*15 :GOSUB 11770 

2850 NEXT 


2860 XFARB=0 : XEND=O 
2870 FOR XSEG=1 TO 16 


2880 XANF!=SXENDE!+5 : XENDE!=XANF!+17.5 :XFARB 
=10 
2890 FOR XRAD=0 TO 195 STEP 9.5 : XFARB=XFARB+ 
ı 
2900 GSTEP1=0:6X1=320:GY1=100:GRA=XRAD:GFA 
RB=XFARB+1:GANF!=XANF! 
2910 GEND!=XENDE! : GASP!=0 : GOSUB 11430 
‘Kreisbogen zeichnen 
2920 NEXT XRAD,XSEG 
2930 XXANF=O : XXEND=5720 : XXSTEP=2.6 ı: GOSUB 1 
350 : ‘Spirale > £ n 
2940 XXANF=5720 : XXEND=0 : XXSTEP=-10.4 : GOSUB 1 3 2, Aufsteig® 
350 : "Spirale \ für EinsteigeT und f 
2950 '------------------------------------- 
2960 TASTE$="" : WHILE TASTE$="":TASTE$=INKEY$:WEN 
D 


2970 GOSUB 10400 : GFARB=XSCHWARZ : GOSUB 10500 : 
"Bild löschen, Randfarbe 
2980 FOR X=1 TO 50 








2990 GOSUB 1470 : "Variablen rechnen XM 
‚YM,XR,XFRB,AP,XF,ANF, ENDE 
3000 GFIL=XF : GSTEPI=0 : GX1=XM : GYi1=YM : G 
RA=XR 
3010 GFARB=XFRB : GASP!=AP : GOSUB 11080 : 
'"Vollkreis zeichnen 
3020 GOSUB 1470 : "Variablen rechnen XM 
‚YM,XR,XFRB,AP,XF,ANF,ENDE 
3030 GFIL=XF : GSTEP1=0 : GX1=XM : GYi=YM : G 
RA=XR 
3040 GFARB=XFRB : GANF!=ANF : GEND!=ENDE : GAS 
P!=AP 
3050 GOSUB 11180 : 
'"Kreissektor zeichnen 
3060 GOSUB 1470 : ‘Variablen rechnen XM 
‚YM,XR,XFRB,AP,XF,ANF,ENDE j 
3070 GFIL=XF : GSTEP1=0 : GX1=XM : GYl=YM : G i r Heft: ein GW-, 
RA=XR P S jelprogramm 
3080 GANZ=3+RND(1)*5 : GFARB=XFRB : GOSUB 1 n und SP _ 
1530. ;: '"Vieleck zeichnen me: Anw n er ang m mit dem Compuü 
3090 NEXT ; 
3100 '-------------------------- 2... n i was den le er mer wissen 
A-4444 4444 as Sie schon IM . 
3110 TASTE$="" : WHILE TASTE$="":TASTE$=INKEY$:WEN _ Tipsun nhand kleiner 
er 0 GOSUB 10400 : GFARB=ROT o 5 ei sn das Inner® e Ihres PC a 
312 : GFARB= : GOSUB 10500 : f as = 
"Bild löschen, Randfarbe wollten. ird scha' aulich erläutert... und Hilfspro© 
3130 XX=640/32 : YY=200/32 ns n Anwendu ngS 
3140 FOR Y= 0 TO 32 N di i e He auf 
0 X1=0 : Yi=Y#YY : _Cost- mn tspan- 
3160 GSTEPI1=0: GX1=X1 : GYi=Y1 : GFARB=0 : GOS = erl‘ i ra’ und En 
UB 10620 : 'Punkt zeichnen 
3170 FOR XI=Y TO 32 : X1=X1+XX : Yil=Yi+YY 
3180 GFIL=1 : GSTEP2=0 : GX2=X1 : GY2=Y1 
3190 GFARB=RND(1)*16 : GOSUB 10980 : 
'Box zeichnen 
3200 NEXT XI 
3210 Y2=0 : X2=Yx*XX 
3220 GSTEP1=0: GX1=X2 : GY1=Y2 : GFARB=0 : GOS 
UB 10620 : "Punkt zeichnen ü 
3230 FOR XI=Y TO 32 : X2=X2+4XX : YV2=Y2+YY z 
3240 GFIL=1 : GSTEP2=0 : GX2=X2 : GY2=Y2 . R 
3250 GFARB=RND(1)*16 : GOSUB 10980 : mz m Abtippen 
"Box zeichnen ikprogram a 1 „verwaltung 
3260 NEXT XI i un ndeslig 
3270 NEXT Y 
3280 '------------------------- _ Fü ie en 
BE RT EEE _ Grun ag 
3290 XWART=1: XBORD=XHELLCYAN : GOSUB 1240 : 
"Warten auf Taste 
3300 GSTEPI=0 : GX1=6 : GY1=60 : GSTEP2=0 : GX2=6 
33: GY2=60 P _ Public Domain: 


3310 GFARB=15 : GOSUB 10700 : 
"Linie zeichnen 


Pulldown 


—_ Tips: 
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3320 GSTEP1=0 

20: GY2=196 

3330 GFARB=15 GOSUB 10700 
"Linie zeichnen 

3340 XM(1)=160: YM(1)=30 

(2)=30 : AP(2)=1! 

3350 XM(3)=160: YM(3)=130: AP(3)=1.5: XM(4)=480: Y 

M(4)=130: AP(4)=2.4 

3360 XFARB=O T=360/16 


GX1=320: GY1=3 GSTEP2=0 : GX2=3 


AP(1)=.5: XM(2)=480: YM 





3370 FOR X=1 TO 4 ANF!=0-T FOR I=1 TO 16 : XFA 
RB=XFARB+1 ANF!=SANF!+T 

3380 GFIL=1:GSTEP1=0:GX1=XM(X):GY1=YM(X):GRA=6 
0:GFARB=XFARB:GANF !=ANF! 

3390 GEND!=ANF!+T GASP!=AP(X) GOSUB 11180 


'Kreissektor zeichnen 
3400 NEXT I,X 
3410 '-------------------- 2-22 
3420 TASTE$="' WHILE TASTE$="":TASTE$=INKEY$:WEN 
D 
3430 GOSUB 10350 
'TextModus einschalten 
3440 END 
3450 ' 











3480 "KR kick 
EEE 2 2 2 2 2 2 2 22 2 2 2 2 2 2 2 2 2 2 2 2 2 zn 

10000 "ak ak ak ak ak ak ak ak ak ak ak ak ak ak aka 
EZ 2 2 2 2 2,2 2 2 2 2 2 2 22 2 2.22 202 


10010 '*x*x* Unterprog. fuer die 16-Farb-Grafik be 
i 640x200 Punkten xxx 
10020 '*x*x 
xx 
10030 '*x* Computer: Schneider PC1512 (Farbe) 
xx% 
10040 'xxx* Sprache : GW-Basic 
xxx 
10050 'xx*x 
xxx 
10060 'xx* 
xxx 


10070  % ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak akak ak aka ak aka ka kkkk 
KERKKKKEKKKKEE K E 


10080 'xxx Diese Datei enthaelt Unterprogramme, 
die zur Programm- xxx 

10090 '*%*x* Erstellung von 16-Farben-Graphik auf 
dem PC1512 mit Kr 

10100 '*%*%* Farbmonitor benoetigt werden. 

Ex 23 

10110 '*%*x Sie kann entweder ganz oder teilweise 

in ein Haupt- xx%* 

10120 '*x*x Programm eingebunden werden. Es ist d 
arauf zu achten, xxx 

10130 'x%*x dass das Unterprogramm 'CPRCPW' auf j 
eden Fall erit- xxx 

10140 'xxx halten sein muss, wenn Unterprogamme 
benutzt werden, xxx 

10150 '**x die 'CPRCPW' aufrufen. 


*x% 
10160 ak ak KK aka ck 
ERIK 
10170 ' 


10180 'DEFINT G: 'Alle G-Variablen sind Integer mi 
t Ausnahme der als 


10190 ' Realzahlen deklarierten Variablen 
Diese Definition 

10200 ' muss auf jeden Fall uebernommen w 
erden - egal, ob 

10210 ' die Unterprogramme nun teilweise 
oder gesamt einge- 

10220 ' bunden werden. Da die Unterprogra 

mme möglicherweise 

10230 " erst hinter dem Hauptprogramm ste 
hen, dieses aber 

10240 ' die Unterprogrammvariabien versor 
gt, muss die 

10250 ' "DEFINT G" - Anweisung bereits am 
Programm-Anfang 

10260 ' stehen! 

1:027:0° * 


10280 ' E22 2.2 22 22 2 2 2 2 2 22 ee ee 2 22 22 See See 
KR € 





10290 '-------------- Einstellen 640*200-Modus bei 
16 Farben ------------ 

10300 'Unterprogramm FARBI1512 

10310 SCREEN 2:KEY OFF:CLS 

10320 OUT &H3D9,15 

10330 


ee Einstellen Textmodus (SCREEN 


10350 'Unterprogramm TEXTMODUS 





Listing Farbe 


90 PE 1’89 








10360 OUT &H3D9,7 

10370 SCREEN 0:CLS:KEY ON 

10380 RETURN 

10390, === ea n Bildschirm 640x200-Modus 1oe 
SCHENN ee ngr 

10400 'Unterprogramm BILDSCHIRMLOESCHEN 

10410 FOR GPLANE = 0 TO 3 GOSUB 10450 : CLS 


NEXT GPLANE 
10420 RETURN 


10439, N FF een Auswahl Colour Plane Read-Re 
gisterz ran 

10449: "===> Auswahl Colour Plane Write-R 
eglster ==-==-=7>7==: 

10450 'Unterprogramm CPRCPW(GPLANE) 

10460 OUT &H3DE,GPLANE 

10470 OUT &H3DD,2°GPLANE 

10480 RETURN 

10490: Ya=-=2=-7-- >= Farbe des Randes setzen ---- 


10500 'Unterprogramm RANDFARBE(GFARB) 


10510 WHILE ((INP(&H3DA) AND 8) <= 0) : WEND 
"'Wait FramerFly 
10520 OUT &H3DF,GFARB 


"&H3df, Border 
10530 RETURN 
70940 Nase Punktfarbe ermitteln ------- 
10550 'Unterprogramm PUNKTFARBE(GSTEP1,GX1,GY1,GFA 
RB) 


10560 IF GSTEP1I <> O THEN GX1=GX1+POINT(2):GY1 
=GY1+POINT(3) 

10570 GFARB = © FOR GPLANE = O0 TO 3: GOSUB 1 
0450 

10580 IF (POINT(GX1,GY1) AND &HF)=1 THEN G 
FARB=GFARB+2"GPLANE 

10590 NEXT GPLANE 

10600 RETURN 

19610 "==--==------->- Punkt Betzen mn 


10620 'Unterprogramm PUNKTSETZEN(GSTEP1,GX1,GY1,GF 
ARB) 


10630 IF GSTEP1 <> O THEN GX1=GX1+POINT(2): GY 
1=GY1+POINT(3) 

10640 FOR GPLANE = 0 TO 3 GOSUB 10450 

10650 IF ((GFARB AND 2°GPLANE) > 0) THEN G 
COL=1 ELSE GCOL=O 

10660 PSET(GX1,GY1),GCOL 

10670 NEXT GPLANE 

10680 RETURN 

10690 ' Linie ziehen von/nach ------ 





10700 'Unterprogramm LINIEVONNACH(GSTEP1,GX1,GY1,G 
STEP2,GX2,GY2,GFARB) 





10710 IF GSTEPI <> O THEN GX1=GX1+POINT(2):GY1 
=GYI1+POINT(3) 

10720 IF GSTEP2 <>» O THEN GX2=GX2+GX1 ICHZ 
=GY2+GY1 

10730 FOR GPLANE = 0 TO 3 GOSUB 10450 

10740 IF ((GFARB AND 2“GPLANE) > O0) THEN G 
cOL=1 ELSE GCOL=O 

10750 LINE(GX1,GY1)-(GX2,GY2),GCOL 

10760 NEXT GPLANE 

10770 RETURN 

10780 

10790 

B) 

10800 GX1=POINT(2) GY1=POINT(3) 

10810 IF GSTEP2 <> O THEN GX2=GX2+GX1 2.1072 
=6GY2+GY1 

10820 FOR GPLANE = 0 TO 3 GOSUB 10450 

10830 IF ((GFARB AND 2°GPLANE) > 0) THEN G 
cOL=1 ELSE GCOL=O 

10840 LINE(GX1,GY1)-(GX2,GY2),GCOL 

10850 NEXT GPLANE 

10860 RETURN 

TOBgH- = === - === Box zeichnen von/nach, ggf. 


miteFusliien ====--=-=== 
10880 'Unterprogramm BOXVONNACH(GFIL,GSTEP1,GX1,GY 
1,GSTEP2,GX2,GY2,GFARB) 


10890 IF GSTEPI <> O THEN GX1=GX1+POINT(2):GYı 
=GY1+POINT(3) 

10900 IF GSTEP2 <>» O THEN GX2=GX2+GX1 :GY2 
=GY2+GY1 

10910 FOR GPLANE = 0 TO 3 GOSUB 10450 

10920 IF ((GFARB AND 2°GPLANE) > 0) THEN-G 
COL=1 ELSE GCOL=O 

10930 IF GFIL=0O THEN LINE(GX1,GY1)-(GX2,G 
Y2),GCOL,B 

10940 IF GFIL<>0O THEN LINE(GX1,GY1)-(GX2,G 
Y2),GCOL,BF 

10950 NEXT GPLANE 

10960 RETURN 

10970 '- Box zeichnen nach, ggf. mit 





Fueliien =--=----- = 
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10980 'Unterprogramm BOXNACH(GFIL,GSTEP2,6CX2,GY2,G 
FARB) 


10990 GX1=POINT(2): GYI1=POINT(3) 

11000 IF GSTEP2 <> O THEN GX2=Gx2+Gx1 :GY2 
=GY2+GY1 

11010 FOR GPLANE = 0 TO 3 : GOSUB 10450 

11020 IF ((GFARB AND 2°GPLANE) > 0) THEN G 
COL=1 ELSE GCOL=O 

11030 IF GFIL=O THEN LINE(GX1,GY1)-(GX2,G 
Y2),GCOL,B 

11040 IF GFIL<>O THEN LINE(GX1,GY1)-(GX2,G 
Y2),GCOL,BF 

11050 NEXT GPLANE 

11060 RETURN 

11070 '-------------- Voll-Kreis zeichnen, ggf. mi 
t Fuellen ------------- 


11080 'Unterprogramm KREISVOLL(GFIL,GSTEP1,GX1,GY1 
‚GRA,GFARB,GASP!) 


11090 IF GSTEP1 <> O THEN GX1=GX1+POINT(2):GY1 
=GY1+POINT(3) 

11100 IF GASP!=0 THEN GASP!=1/2.4 ELSE GASP!=G 
ASP!*1/2.4 

11110 FOR GPLANE = 0 TO 3 : GOSUB 10450 

11120 IF ((GFARB AND 2°GPLANE) > 0) THEN G 
COL=1 ELSE GCOL=O 

11130 CIRCLE(GX1,GY1),GRA,GCOL, , ,GASP! 
11140 IF GFIL <> O THEN PAINT(GX1,GY1),GCO 
L 

11150 NEXT GPLANE 

11160 RETURN 

11170 '-------------- Kreis-Sektor zeichnen, ggf. 


mit Fuellen ----------- 


11180 'Unterprogramm KREISSEKTOR(GFIL,GSTEP1,GX1,G 
Y1,GRA,GFARB,GANF!,GEND!,GASP!) 


11190 IF GSTEPI <> O THEN GX1=GX1+POINT(2):GY1 
=GY1+POINT(3) 
11200 IF GASP! <= 0 THEN GASP! = 1 "R 
unde Kreisboegen 
11210 IF GASP! < 1/16 THEN GASP! = 1/16 'n 
och flacher ist Nonsens 
11220 IF GASP! >» 2.4 THEN GASP! = 2.4 2.h 
oeher macht Mist 
21230 GUMR!=4*XATN(1)/180 : 'Grad-Angabe * Gumr 
! = Winkel im Bogenmass 
11240 GWINANF!=GANF! * GUMR! : 'B 
ogen-Anfang (Bogenmass) 
11250 GWINEND!=GEND! * GUMR!: : 'B 
ogen-Ende (Bogenmass) 
11260 GWINMIT!=(GWINANF! + GWINEND!) / 2 : 'B 
ogen-Mitte (Bogenmass) 
172170: " 
11280 GXA=GX1+GRA * COS(GWINANF!) 
'Koordinate Bogen- 
11290 GYA=GY1-GRA * SIN(GWINANF! )*GASP!/2.4 
"Anfang, Rad.-Ende 
11300 GXE=GX1+GRA * COS(GWINEND!) 
"Koordinate Bogen- 
11310 GYE=GY1-GRA * SIN(GWINEND! )*GASP!/2.4 
"Ende, Radius-Ende 
11320 GXM=GX1+GRA * .5 * COS(GWINMIT!): 
'Koordinate Bogen- 
11330 GYM=GY1-GRA * „5 * SIN(GWINMIT!)*GASP!/2 
.4: 'Mitte, Radius/2 
21340" 
11350 FOR GPLANE = 0 TO 3 : GOSUB 10450 
11360 IF ((GFARB AND 2°GPLANE) > 0) THEN G 
COL=1 ELSE GCOL=O 
11370 CIRCLE(GX1,GY1),GRA,GCOL,GWINANF!,GW 
INEND! ,GASP!/2.4 
11380 LINE(GX1,GY1)-(GXA,GYA),GCOL : LINE( 
GX1,GY1)-(GXE,GYE),GCOL 
11390 IF GFIL <> O THEN PAINT(GXM,GYM),GCO 
L 
11400 NEXT GPLANE 
11410 RETURN 
11220. Nr == =-=-=3=55 Kreis-Bogen zeichnen ------- 


11430 'Unterprogramm KREISBOGEN(GSTEP1,GX1,GY1,GRA 
‚GFARB,GANF!,GEND!,GASP!) 


11440 IF GSTEP1 <> O THEN GX1=GX1+POINT(2):GY1 
=GY1+POINT(3) 

11450 GUMR!=4*ATN(1)/180 : 'Grad-Angabe * Gumr 
! = Winkel im Bogenmass 

11460 IF GASP!=0 THEN GASP!=1/2.4 ELSE GASP!=G 
ASP!x*1/2.4 

11470 FOR GPLANE = 0 TO 3 : GOSUB 10450 

11480 IF ((GFARB AND 2°GPLANE) > 0) THEN G 
cOL=1 ELSE GCOL=O 

11490 CIRCLE(GX1,GY1),GRA,GCOL,GANF!*GUMR! 
‚GEND! *GUMR! ,GASP! 

11500 NEXT GPLANE 

11510 RETURN 

11520 '- Vieleck zeichnen, ggf. mit F 





uellen ---------------- 


11530 'Unterprogramm VIELECK(GFIL,GSTEP1,GX1,GY1,G 
RA,GANZ,GFARB) 
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11540 IF GSTEP1I <> O THEN GX1=GX1+POINT(2):GYı 
=GY1+POINT(3) 

11550 GUMR!=4*ATN(1)/180 "Grad-Angabe * Gum 
r! = Winkel im Bogenmass 

11560 FOR GPLANE = O0 TO 3 : GOSUB 10450 

11570 IF ((GFARB AND 2”GPLANE) > 0) THEN G 
COL=1 ELSE GCOL=O 

11580 FOR GWIN=0 TO 360 STEP 360/GANZ 
11590 GX2=GX1+GRA*XCOS(GWIN*GUMR!) 
11600 GY2=GYI+GRA/2.4*SIN(GWIN*GUMR!) 
11610 IF GWIN=O THEN PSET(GX2,GY2),G 
coL 

11620 IF GWIN<> O THEN LINE -(GX2,GY2) 
‚SCcoL 

11630 NEXT GWIN 

11640 IF GFIL <> O THEN PAINT(GX1,GY1),GCO 
1% 

11650 NEXT GPLANE 

11660 RETURN 

176701,2 ===> Ausfüllen Fläche ----------- 


11680 "Unterprogramm AUSFUELLEN(GSTEP1,GX1,GY1,GFA 
RB,GGRENZ) 


11690 IF GSTEP1I <> O THEN GX1=GX1+POINT(2):GY1 
=GYI1+POINT(3) 

11700 FOR GPLANE = O0 TO 3 : GOSUB 10450 

11710 IF ((GFARB AND 2°GPLANE) > O0) THEN G 
FRB=1 ELSE GFRB=O 

11720 IF ((GGRENZ AND 2°GPLANE) > 0) THEN 
GGRZ=1 ELSE GGRZ=O 

11730 PAINT(GX1,GY1),GFRB,GGRZ 

11740 NEXT GPLANE 

11750 RETURN 

11760 "----- = --- Print Text im 16-Farb-Modus 
11770 'Unterprogramm BILDSCHIRMPRINT(GTXT$,GFARB) 
11780 GZEI = CSRLIN : GPOS = POS(0) 

11790 FOR GPLANE = 0 TO 3 : GOSUB 10450 

11800 IF ((GFARB AND 2°GPLANE) > 0) THEN LOCA 
TE GZEI,GPOS:PRINT GTXT$ 

11810 NEXT GPLANE 


11820 RETURN 

11830. BR EK 
all 

11840 'weeeaeukkkk ENDE der Prozeduren *rk%kkkk%* 
KERNE E KR 





11850 ' 

11860 '--- ROUTINE, in die ein Befehl eingebettet 

werden muß, wenn es --- 

11870 '--- sich um eine Bildschirmausgabe im 16-Fa 
rb-Modus handelt! ar 

11880 '--- 

11890 '--- AA Der Befehl wird 4-mal ausgeführt! 
Sind die Parameter --- 

11900 '-=-- CC des Befehls relativer Natur, so mü 

ssen sie vor Aufruf --- 

11910 '--- HH zu absoluten Werten umgewandelt we 
rden. an 

11920: "=--= TT BildschirmPrint ist ein Beispiel f 
ür den Einbau einer --- 

11930 '--- UU nicht 16-farb-fähigen Anweisung in 
die unten gezeigte --- 

11940 '--- NN Routine und deren Ausbau als aufru 
fbare Prozedur. ze 

11950 '--- GG 






- Evtl. Umwandlung relativer in absolut 


11980 ' - Gfarb muß die gewünschte Farbnummer e 
nthalten 
11990 ' 
12000 ' for Gplane = O0 to 3 : Gosub 'CprCpw' 
12010 ' 
12020 ' Ä if ((Gfarb and 2*Gplane) > O0) the 
n Gcol=1 else Gcol=0 Ü 
12030 ' Ä BEFEHL mit Farbcode 'Gco!' 
Ü 
12040 ' 
12050 ' On Di SER 
12060 ' 
1207047 A if ((Gfarb and 2°Gplane) > O0) the 
n BEFEHL Ü 
12080 ' Ä wenn dieser keine Farbangabe beno 
etigt (zulaesst)! Ü 
12090 ' 
12100." next Gplane 
12110 '--------------- ---------------- ------------ 


12120 "KHK ENDE KAKKKKKEK 
KK EEE ac 
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Daten auf der Bank 


Eine Datenbank unter Basic2 


Dieses Programm ist für denjenigen entwickelt, der kei- 
ne allzu große Datenbank beanspruchen will. Sie ist ein- 
fach zu bedienen und auch sehr leicht zu verstehen. 


Wenn Sie das Programm fehlerfrei ab- 
getippt haben, steht der Arbeit mit dem 
Programm nichts mehr im Wege. Es 
wird durch einfaches Anklicken der 
Programmikone geladen und gestartet. 


Die Bedienung 


Das Programm erklärt sich im wesent- 
lichen selbst — aber es könnten doch 
durch eine Fehlbedienung Probleme 
auftreten. Einen Hinweis sollten Sie 
beachten: 


Wenn das Programm Sie auffordert, ei- 
nen Dateinamen einzugeben, so geben 
Sie ihn immer ohne Extension an. 


Unter Extension versteht man die letz- 
ten drei Buchstaben eines Dateinamens 
hinter dem Punkt. 


Nun kommen wir aber endlich zu der 
Bedienung. Wenn Sie das Programm 
gestartet haben, werden Sie gebeten, 
das Standardlaufwerk anzuklicken. 
Unter dem Standardlaufwerk versteht 
man das Laufwerk, von dem das Pro- 
gramm die Daten erhält und auf dem es 
die Informationen sichert. 


Die Datenbank wird nun kurz vorge- 
stellt und nach einem Tastendruck ge- 
langen Sie in das Hauptmenü. Von dort 
aus können Sie aus den einzelnen Pro- 
grammpunkten wählen, indem Sie die 
Zahl eintippen, die vor dem jeweiligen 
Programmpunkt aufgeführt ist. So 
kommen Sie nun in die einzelnen Un- 
terprogramme: 

1. In diesem Unterprogramm können 
Sie die Daten in die Datenbank einge- 
ben. Dies bewerkstelligen Sie, indem 
Sie das Format, das als Schablone die- 
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nen soll, und dann die Daten Zeile für 
Zeile eintippen. 

2. In diesem Unterprogramm können 
Sie die Daten, die Sie zuvor eingege- 
ben hatten, wieder auf Monitor oder 
auf Drucker ausgeben. 


3. Um Daten in die Datenbank einzuge- 
ben, müssen Sie vorher ein Format er- 
stellen. Im Grunde genommen ist das 
ganz einfach. Sie geben zuerst den Na- 
men des Formates ein. Dann können 
Sie die einzelnen Namen der Zeilen 
eingeben, z.B.: 


Formatname : ADRESS 
1.Zeile : Name 
2.Zeile : Strasse 


100. Zeile : ... 


(Natürlich darf das Format auch weni- 
ger als 100 Zeilen beinhalten.) 

4. Falls Sie mal einen Fehler bei der 
Eingabe gemacht haben oder die Daten 
nicht mehr auf dem neuesten Stand 
sind, können Sie diese Daten natürlich 
auch korrigieren. Sie können folgendes 
verbessern: 


Datensatz 

— Sie können einen zuvor eingegebe- 
nen Datensatz neu schreiben. Hierzu 
tippen Sie den Namen ein,unter dem 
der Datensatz gesucht werden soll, da- 
nach schreiben Sie den Satz einfach 
neu. 


Format 

— Um ein Format zu verbessern, ge- 
ben Sie den Namen des Formates ein 
und erstellen das Format wie in 
Punkt 3. 





5. Falls Ihre Diskette voll sein sollte, 
können Sie unter diesem Programm- 
punkt eine neue, formatierte Diskette 
für die Arbeit vorbereiten. Diesen Pro- 
grammpunkt müssen Sie auch aus dem 
Hauptmenü auswählen, falls Sie die 
Daten einer anderen Diskette bean- 
spruchen wollen. Ich hoffe, daß die Be- 
dienung Ihnen nun keine Probleme 
mehr bereitet. 


Die Funktionsweise 





Nun kommen wir zu der Funktionswei- 
se des Programmes. Das Programm 
nimmt die Informationen, an welcher 
Stelle die Daten auf der Diskette ge- 
schrieben stehen und ob der Datensatz 
überhaupt auf der Diskette vorhanden 
ist, aus der Datei ’COUNTER.SEQ’, 
die bei jedem Programmstart und Dis- 
kettenwechsel geladen wird. Wenn ein 
Datensatz gesucht wird, schaut der 
Computer nun erst einmal nach, an 
welcher Stelle der Datensatz in der 
obengenannten Datei steht. Zum Bei- 
spiel steht der gesuchte Begriff an 13. 
Stelle, so lädt das Programm die Datei 
“013.SEQ“. Diese Dateien sind nun 
wiederum wie folgt aufgebaut: 


1. Name des Formats, der als Schablo- 
ne diente. 

2. Information der 1. Zeile 

3: 

4.. 

SR 

usw. 

Wenn das Programm beendet wird, so 

sichert natürlich das Programm die Da- 

tei 'COUNTER.SEQ’. 


(Thomas Mertens/me) 











'"PC-Databank Written by T.Mertens 
CLOSE WINDOW 3 

CLOSE WINDOW 4 

DIM bedeu$(100) 

DIM bedeutung$(100) 

DIM name$(10000) 

FOR i=1 TO 6 : CLOSE #i:NEXT i 
GOSUB disk_change 

OPEN #1 WINDOW 1 

SCREEN #1 GRAPHICS XUSABLE-30 FIXED 
IXED INFORMATION OFF 

WINDOW #1 TITLE "PC-Databank 
WINDOW #1 FULL 

WINDOW #1 PLACE 10,5 

WINDOW #1 OPEN 

STREAM #1 

GOSUB ask 

GOSUB count 

REM **%kık%k Intro kkkkık 

GOSUB berschrift 

SET POINTS(18) 

PRINT AT(2;6)"PC-Databank ist ein sehr einfach" 
PRINT AT(2;8)"zu bedienendes Programm.Sie knnen" 
PRINT AT(2;10)"auf simpelster Weise eine Datenbank 


‚ YUSABLE-20 F 


PRINT AT(2;12)"erstellen" 

PRINT AT(5;18)CHR$(189);" 1988 by Tom-Soft Product 
ions" 

GOSUB warte 

LABEL menue 

GOSUB berschrift 

SET POINTS(18) 

PRINT AT(2;6)"Whlen Sie bitte aus :" 

SET EFFECTS(&x0000100) 

PRINT AT(2;8)"1 - Datenbank Eintrag" 
PRINT AT(2;10)"2 - Datenbank Zugriff" 
PRINT AT(2;12)"3 - Format bestimmen" 
PRINT AT(2;14)"4 - Datensatz korrigieren" 
PRINT AT(2;16)"5 - Diskette wechseln" 
PRINT AT(2;18)"6 - Programm beenden" 
LABEL tasten_abfrage 

REPEAT 

S$=INKEY$ 

UNTIL s$<>"" 

IF s$="1" THEN GOSUB eintrag :GOTO menue 
IF s$="2" THEN GOSUB zugriff :GOTO menue 


IF s$="3" THEN GOSUB format :GOTO menue 
IF s$="4" THEN GOSUB korrigieren:GOTO menue 
IF s$="5" THEN GOSUB change :GOTO menue 


IF s$="6" THEN GOSUB ende 

GOTO tasten_abfrage 

LABEL eintrag 

GOSUB berschrift 

PRINT AT(2;08)"Daten Eingabe" 

PRINT AT(2;10)"Whlen Sie bitte aus folgenden Forma 
ten aus:" 

SET POINTS(10) 

PRINT AT(2;12); 

FILES Iwt$+"*.frt" 


Nichts für Langeweiler 


PRINT Auf dem Computer _ hie 
PRINT " Falls kein Format vorhanden sein sollte : eröffnet sich eine neue IC 
RETURN Taste drcken." e a > e 
PRINT ö Dimension des Spielens. 
INPUT " Format (ohne .frt): ";format$ ° . 
IF format$="" THEN GOTO menue ELLI SIEH RICHLO) EI UL 
SOSUBTRacmar— laden in die abenteuerlichen 
LABEL eintrag_of r d 
GOSUB berschrift und lustigen Welten des 
u Computerspiels. 
ee Pr ;: INPUT name$(co 16) Sie nun Geister 
FOR i=1 TO info_anzahl r &i durch ein Labyrinth 
;i+o 1 a bed ® A 2 
EEE AT(2;i+06)bedeu$(i) INPUT bedeutung jagen oder lieberdie 
NET: Weiten des Weltraums 
GOSUB sichern_block E 
in=ALERT 2 TEXT "Wollen Sie noch einen Datensatz e unsicher machen... 
ingeben ?" BUTTON RETURN "Ja"”,"Nein" 2 = .\ 
IF in=1 THEN GOTO eintrag_of OL BITLRISELHUET IT: 
IF in=2 THEN RETURN 


bekämpfen oder lieber 
nenn einen Fußballverein 
GOSUB berschrift 
SET POINTS(18) managen.... 


PRINT AT(2;08)"Nun mssen Sie das Format eingeben,d & 
as sie" OYSTICK, das Magazin 
PRINT AT(2;12)"Zuerst mssen Sie den Namen eingeben für Computerspieler: 


PRINT AT(2;10)"spter benutzen wollen." 
‚unter dem" Reviews, Tips, Stories, 


PRINT AT(2;14)"das Format gespeichert werden sol1( s 
bis 8 Buchst.)." Berichte und 


PRINT AT(2;16)"Name des Formates : ";:INPUT format Lösungshilfen. 
$ 

GOSUB berschrift 
SET POINTS(18) Eben alles, was 


PRINT AT(2;08)"Jetzt mua der Name eingegeben werde Computern Spaß macht! 


BILLFANZDER: 
Postfach 250 - 3440 Eschwege 
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n,unter dem die" 

PRINT AT(2;10)"Informationen gespeichert werden." 

PRINT AT(2;12)"Name : ";:INPUT speicher_name$ 

PRINT AT(2;14)"Nun mssen Sie die Namen der Bedeutu 

ngszeilen " 

PRINT AT(2;16)"eingeben (bis 100 St.)." 

GOSUB warte 

LABEL bedut 

GOSUB berschrift 

SET POINTS(18) 

zahl=zahl+1l 

IF zahl=101 THEN GOTO save_format 

PRINT AT(2;08)"Name der ";zahl;".Bedeutungszeile 
";:INPUT bedeu$(zahl) 

fr=ALERT 2 TEXT"Noch eine Informationszeile ?" BUT 

TON RETURN "Ja","Nein" 

IF fr=1 THEN GOTO bedut 

LABEL save_format 

OPEN #5 OUTPUT Iwt$+format$+".frt" 

PRINT #5 speicher_name$ 

PRINT #5 zahl 

FOR i=1 TO zahl 

PRINT #5 bedeu$(i) 

NEXT i 

CLOSE #5 

RETURN 


LABEL zugriff 

GOSUB berschrift 

SET POINTS(18) 

PRINT AT(2;08)"Geben Sie bitte den Namen des Daten 
blockes ein," 

PRINT AT(2;10)"auf den Sie zugreifen wollen." 
PRINT AT(2;12)"Zugriff auf : ";:INPUT such$ 

FOR i=1 TO counter+op 

IF name$(i)=such$ THEN GOTO found 

NEXT i 

f=ALERT 1 TEXT "Der Datensatz ist nicht","auf dies 
er Disc gespeichert.","Wwollen Sie noch einen", "and 
eren Datensatz suchen ?" BUTTON RETURN "Ja","Nein" 
IF f=1 THEN GOTO zugriff 

IF f=2 THEN GOTO menue 

LABEL found 

ft=ALERT 2 TEXT "Ausgabe auf : " BUTTON RETURN "Mo 
nitor","Drucker" 

IF ft=1 THEN GOTO ausgabe_monitor 

IF ft=2 THEN GOTO ausgabe_drucker 


LABEL ausgabe_monitor 

OPEN #6 INPUT 1wt$+STR$(i)+".seq" 

INPUT #6 ‚format$ 

GOSUB format_laden 

INPUT #6 name$(i) 

GOSUB berschrift 

PRINT TAB(2)speicher_name$;" : ";name$(i) 
FOR t=1 TO info_anzahl 

INPUT #6 ‚bedeutung$(t) 

PRINT TAB(2)bedeu$(t);" : ";bedeutung$(t) 
NEXT t 

CLOSE #6 

GOSUB warte 

z=ALERT 2 TEXT"Noch ein Zugriff ?" BUTTON "Ja","Ne 
ın 

IF z=1 THEN GOTO zugriff 

IF z=2 THEN GOTO menue 


LABEL ausgabe_drucker 

OPEN #6 INPUT 1wt$+STR$(i)+".seq" 

INPUT #6 ‚format$ 

GOSUB format_laden 

INPUT #6 name$(i) 

LPRINT TAB(2)speicher_name$;" : ";name$(i) 
FOR t=1 TO info_anzahl 

INPUT #6 ‚bedeutung$(t) 

LPRINT TAB(2)bedeu$(t);" : ";bedeutung$(t) 
NEXT t 

CLOSE #6 

GOSUB warte 

z=ALERT 2 TEXT"Noch ein Zugriff ?" BUTTON "Ja","Ne 
In 

IF z=1 THEN GOTO zugriff 

IF z=2 THEN GOTO menue 


LABEL korrigieren 

GOSUB berschrift 

SET POINTS(18) 

PRINT AT(2;08)"Mit diesem Unterprogramm knnen Sie 
ein 

PRINT AT(2;10)"Format oder einen Datensatz korrigi 
eren." 

GOSUB warte 

r=ALERT 2 TEXT"Wollen Sie korrigieren : " BUTTON " 
Format", "Datensatz", "Nichts" 

IF r=1 THEN GOSUB ko_format 

IF r=2 THEN GOSUB ko_data 

IF r=3 THEN GOTO menue 

s=ALERT 2 TEXT"Noch etwas zu korrigieren" BUTTON “ 
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Ja","Nein" 
IF s=1 THEN GOTO korrigieren 
IF s=2 THEN GOTO menue 


LABEL ko_format 

GOSUB berschrift 

SET POINTS(14) 

PRINT AT(2;06)"Welches Format Sie ndern wollen,geb 
en Sie bitte gleich ein." 

SET POINTS(10) 

PRINT AT(2;12); 

FILES Iwt$+"*.frt" 


PRINT 

PRINT " Falis kein Format vorhanden sein sollte 
RETURN Taste drcken." 

PRINT 

INPUT " Format (ohne .frt): ";format$ 

IF format$="" THEN GOTO menue 


GOSUB format_laden 
GOSUB berschrift 


PRINT AT(2;06)"Name der Info.Zeile : ";speicher_na 
me$ 

FOR i=1 TO info_anzahl 

PRINT TAB(2)"Bedeutung der ";i;".Zeile : ";bedeu$( 
i) 

NEXT i 


GOSUB warte 

GOSUB berschrift 

SET POINTS(18) 

PRINT AT(2;08)"Name der Info.Zeile : ";:INPUT spei 
cher_name$ 

FOR t=1ı TO 100 

GOSUB berschrift 

SET POINTS(18) 

PRINT AT(2;10)"Bedeutung der "; 
T bedeu$(t) 

als=ALERT 2 TEXT "Noch eine Bedeutungszeile ?" BUT 
TON RETURN "Ja","Nein" 

IF als=1 THEN NEXT t 

OPEN #5 OUTPUT Iwt$+format$+".frt" 

PRINT #5 speicher_name$ 

PRINT #5 t 

FOR i=1 TO t 

PRINT #5 bedeu$(i) 

NEXT i 

CLOSE #5 

RETURN 





uizelim = Ko LNRl 


LABEL ko_data 

GOSUB berschrift 

SET POINTS(18) 

PRINT AT(2;08)"Nun knnen Sie einen ganzen Datensat 
z neuschreiben." 

PRINT AT(2;10)"Sie brauchen nur den Namen eintippe 
n. 

PRINT AT(2;12)"Name : ";:INPUT such$ 

FOR ci=1 TO counter+top £ 

IF name$(ci)=such$ THEN GOTO found_ko 

NEXT ci 

f=ALERT 1 TEXT "Der Datensatz ist nicht","auf dies 
er Disc gespeichert." ,"Wollen Sie noch einen","and 
eren Datensatz neuschreiben ?" BUTTON RETURN "Ja", 
"Nein" 

IF f=1 THEN GOTO ko_data 

IF f=2 THEN GOTO menue 

LABEL found_ko 

OPEN #6 INPUT 1wt$+STR$(ci)+".seq" 

INPUT #6 ‚format$ 

GOSUB format_laden 

GOSUB berschrift 

SET POINTS(14) 

INPUT #6 name$(ci) 

PRINT TAB(2)speicher_name$;" : ";name$(ci) 

FOR t=1 TO info_anzahl 

INPUT #6 ‚bedeutung$(t) 

PRINT TAB(2)bedeu$(t);" : ";bedeutung$(t) 

NEXT t 

CLOSE #6 

GOSUB warte 

GOSUB berschrift 

PRINT AT(2;08)speicher_name$;" : ";:INPUT name$(ci 
) 

FOR t=1 TO info_anzahl 

PRINT TAB(2) bedeu$(t);" : ";:INPUT bedeutung$(t) 
NEXT t 

OPEN #5 OUTPUT 1wt$+STR$(ci)+".seq" 

PRINT #5 format$ 

PRINT #5 name$(ci) 

FOR t=1 TO info_anzahl 

PRINT #5 bedeutung$(t) 

NEXT t 

CLOSE #5 

jio=ALERT 2 TEXT"Noch eine Korrektur ?" BUTTON "Ja" 
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‚RETURN "Nein" 
IF io=1 THEN GOTO korrigieren 
IF io=2 THEN GOTO menue 
LABEL change 
GOSUB save_counter 
GOSUB berschrift 
SET POINTS(18) 
PRINT AT(2;10)"Bitte neue Diskette in Laufwerk '" 
1wt${To 2};"'" 
PRINT AT(2;14)"einlegen und SPACE drcken." 
REPEAT 
c$=INKEY$ 
UNTIL c$=" " 
GOSUB ask 
GOSUB count 
RETURN 


LABEL disk_change 


Iwt=ALERT 1 TEXT "Standartlaufwerk E 
RN "Floppy Disk A:","Floppy Disk B:", 
kcCc: 

IF Iwt=1 THEN Iwt$="a:\ 

IF Iwt=2 THEN 1wt$="b:\" 

IF Iwt=3 THEN Iwt$="c:\ 

RETURN 


' BUTTON RETU 
"Hard/Ram Dis 


LABEL berschrift 

CLS 

SET EFFECTS(&x0000000) 

SET FONT(3):SET POINTS(36):PRINT AT(2;3)"PC-Databa 

nk V2.1";:SET FONT(2):SET POINTS(14):PRINT"Written 
by T.Mertens" 

RETURN 


LABEL ask 

IF FIND$(1wt$+"counter.seq")<>"" THEN RETURN 
OPEN #5 OUTPUT Iwt$+"counter.seq" 

PRINT #5 , 0 

CLOSE #5 

RETURN 


LABEL count 

OPEN #5 INPUT Iwt$+"counter.seq" 
INPUT #5 ‚counter 

FOR i=1 TO counter 

INPUT #5 , name$(j) 

NEXT i 

CLOSE #5 

RETURN 


LABEL warte 

SET FONT(2):SET POINTS(14) 
PRINT AT(30;20)"Press a key" 
REPEAT 

a$=INKEY$ 

UNTIL a$<>"" 

RETURN 


LABEL format_laden 

OPEN #5 INPUT Iwt$+format$+".frt" 
INPUT #5 ,„ speicher_name$ 

INPUT #5 ,„ info_anzahl 

FOR i=1 TO info_anzahl 

INPUT #5 , bedeu$(i) 

NEXT i 

CLOSE #5 

RETURN 


LABEL sichern_block 

OPEN #5 OUTPUT 1Iwt$+STR$(counter+op)+".seq" 
PRINT #5 ,„ format$ 

PRINT #5 ,„ name$(counter+op) 

FOR i=1 TO info_anzahl 

PRINT #5 , bedeutung$(i) 

NEXT i 

CLOSE #5 

RETURN 


LABEL ende 

h=ALERT 2 TEXT "Wollen Sie das Programm beenden ?" 
BUTTON RETURN "Ja","Nein" 

IF h=2 THEN GOTO menue 

GOSUB save_counter 

END 


LABEL save_counter 

OPEN #5 OUTPUT 1Iwt$+"counter.seq" 
PRINT #5 counter+op 

FOR i=1 TO counter+op 

PRINT #5 name$(i) 

NEXT i 

CLOSE #5 

RETURN 
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Jetzt neu: 
BASIC-Compiler für CPC 464/664/6128 


Der Turbo-Antrieb für Ihre BASIC-Programme! 


Haben auch Sie sich schon immer ge- 
wünscht, daß Ihre selbstgeschriebenen 
BASIC-Programme schneller laufen? 

Mit dem BASIC-Compiler von DMV ist das 
nun kein Problem mehr, denn 


- der Compiler hat den vollen Sprachumfang des 
BASIC 1.1 (CPC664/6128) 


- das compilierte Programm ist auf jedem CPC 
lauffähig 


- unterstützt Integer- und Fließkomma- 
Arithmetik 


- kompatibel zu Vortex-Peripherie incl. Nutzen 
der RAM-Disk 


- Programme, die spezielle BASIC 1.1.-Befehle 
beinhalten, sind auch auf dem CPC464 lauffä- 
hig (außer FILL und MASK) 


- der Compiler arbeitet unter CP/M, das heißt, 
alle CP/M-Dienstprogramme können genutzt 
werden. 


-— bis 17 KB Quellcode können problemlos compi- 
liert werden 


- einzelne Programmteile können ebenfalls com- 
piliert werden (z.B. wichtig bei Nachladepro- 
grammen) 


- die ausführliche deutsche Bedienungs- 
anleitung macht Sie auf einfache Weise mit 
dem Umgang des Compilers vertraut. 


- viele Beispielprogramme veranschaulichen die 
Arbeitsweise des Compilers und zeigen die Ge- 
schwindigkeitsvorteile auf. 


- das Programm ist in 100% Maschinencode ge- 
schrieben 





Der BASIC-Compiler ist auf 3“-Diskette 
zum Preis von 








69,- DM (unverbindliche Preisempfehlung) 
Wenn Sie über den DMV-Bestellservice bestellen gilt folgendes: 


A Inland: Ausland: 
Best.-Nr.: 209 Einzelpreis 69,- DM Einzelpreis 9,- DM 


, 6 
zzgl. Versandkosten 3,—- DM zzgl. Versandkosten 5,- DM 
Endpreis 72,- DM Endpreis 74,- DM 








Bitte benutzen Sie die Bestellkarte 


DMV Verlag 
Postfach 250 - 3440 Eschwege 


EKleinanzeigen IT mm 


Biete an Software 


Public Domain & Free-Software. 
IBMi/Schneider PC und Kompatible. 

Disk. ab DM 1,80 - Gratiskatalog. 

M. Karbach - Remscheiderstr. 18, 

5650 Solingen 1 - Tel. 02 12/4 3140 G 





PD-SOFTWARE für CPC-Computer 
Liste 80 Pf., bei: Peter Breuker, 
Rektenstr. 10, 4930 Detmold 1 





Anwenderprogr., alle CPCs und Pro- 
grammmentwicklung auf Wunsch 
A. Hust, Deichstr. 60, 2876 Berne G 


Blindschreiben mit 10 Fingern 

mit Programm TIPFIT, 700 Stun- 

den Entwicklungszeit, getestet 

von 80 Personen,incl. 40seit. 

Handbuch für DM 40,—.Nur für 
IBM-kompatible Computer, Mas- 
senlizenzen für Schulen, nicht 
kopiergeschützt. Informationen 

von Computer Service-Tip, 

Postfach 1241, D7972 Isny G 


Lohn- und Einkommensteuer 1988 
Druckerausgabe + Datensicherung. 
Ausführliche Anleitung, Info 1,50 DM. 
3°Disk für CPC 79,— DM + VP. Versand 
gegen Vorkasse oder NN. 89er-Aktuali 
sierung 20,— DM. S. Teurich, 
Mesternstraße 6, 4952 Porta Westfalica G 


TOP-PD-SOFTWARE: Spielhallen- 
spiele; Rechnungschreibung; 
Biorhythmus uvm. Gratiskatalog 

bei Dieter Strack, Altenbergstraße 3, 
7570 Baden-Baden 23 


SUPER-LOHN-EINKOMMENSTEUER, 
Jahresausgleich 88 neu m. Datenspeicher, 
Kundenverw,, Formulardruck, Analyse, 
jährl.Aktu (10,-) Info gg.RP Demodisk 10,— 
MIET - WOHNGELDBERECHNUNG 

m. allen Kreisen d.BRD! Jedes Prg.ab 70,— 
H. 1. SOFTWARE H. IIchen, Niederfelder 

tr. 44, 8072 Manching, 084591669 GG 


Dias ordnen mit Computer 

CPC 464166416128, JOYCE und PC 

bis zu 100 000 Dias; Suchzeit 

1 Sekunde. Info gegen Rückporto 

bei: Dipl. Ing. W. Grotkasten, Birnenweg 6, 
7060 Schorndorf 

Tel: 071 81/4 2846 G 





Astrologie mit Computer 

International geschätzte Astro- 
logenprogramms, professionelle 
Deutungsprogramme, Lernprogramme 

für Anfänger, Handschriftanalyse, 
Bio-Rhythmus, Astro-I-Ging. 

Info gegen DM 2,— in Marken. 

Astron, K .W. Bonert, 

Peter-Marqu.-Str. 4a, 2000 Hamburg 60 G 





Lohn-Einkommensteuer, Miet-Lasten- 
zuschuß, Rentenber./Beamtenversorgung 
H-I-SOFTWARE Niederfelderstr. 44 

8072 Manching 0 8459116 69 G 





Wirtschaftliche Programme 

für die Arztpraxis auf 

dem Schneider GPC, Joyce, PC 

Fa. EFFEKTA, Am Wiggert 9c 

4500 Osnabrück, 0541-442 4 16 G 





Turbo Pascal 3.0 (Graf.) für CPCs (orig.) 
100,—, 0.60 81/4 1978 





Orig. Wordstar 3.0 fuer CPC 6128 
zu verkaufen. Komplett mit Handbuch 
89,— DM. Tel: 089/601 66.01 





varDAT Il für dBase Il 

varDate Ill + für dBase Ill PLUS 
Test in PC International 9/87: 

“. Es ist die optimale 

Ergänzung zu dBASE II: 

Die neue, einfache Möglichkeit 

für Andwender von dBASE II/IIl + 
Benutzeroberfläche für Kunden, 
Lager, Verein, Sachbearbeitung, 
Handwerk und Kleinbetrieb.... 
menügeführt-umfangreich-einfach 
Anwendung ohne Programmieren 
Spart Zeit, Geld und Nerven 
varDAT Il 199,— DM 

varDAT Ill+ 499,— DM 

gegen Scheck oder NN (+ 10 DM) 
MS-DOS 5 1/4“ 0. 35“ Disk 

CPIM 3“ für CPC, Joyce u. 9512 
Info direkt von: 

SOFTDESIGN Horstmar Konradt, 
Am Lindenplatz 29 B, 4040 Neuss 1 
021 01/47 06 33 


R. Christiansen 
Versandhandel für Software 
Postfach 1315 

D-2390 Flensburg 

04 61 128075 


Org. Spiele für CPC zu verk. 

(Herr der Ringe, Guadacanal, Bio- 
nic Comm. u.a.) Tel: 07 21/60 60 68 
ab 19.00 Uhr call Fatih 


JOYGE-SOFTWARE: d-Base, Wordstar, 


Multiplan, Dr. Graph, Star-Base, 
FiBu-Star, Business-Star, Mailing-System, 
M& T Finanzbuchhaltung u. a. preisgün- 


stig, zum Teil unbenutzt, Tel. 0.23 07.64 14 


SOZIOGRAMM CPC 

Auswertung bis 40 Personen 

Text- und Grafikausgabe 

Info gegen Freiumschlag 

Disk 3°, 5 114“, 30,— DM + NN o. Vork. 
Helmut Ungar, Mittelstr. 26A, 

4902 Bad Salzluflen 1 


Für Schneider PC 151211640: 

31 Matheprogramme für Kl. 5 - 10! 
Teilweise Grafik! Uber 200 K! 

Nur 50 DM / Info kostenlos! 
Schäfer/PF 72221 4800 Bielefeld 1 


Apfelmännchen 

Mandelbrot- und Juliamengen, 
schnellstes Programm für GPC! 
Kass 20-, Disk 30—, Voraus. 
Gerhard Knapienski 
Frauenhoferstr. 8, 3000 Hannover 1 
Postgirokonto Han: 47 11 13-309 





Schneider CPC Public-Domain 
Spiele + Anwenderpro. Info: 1,— DM 
K. Bartram, Haardtwaldstr. 17, 

6000 Frankfurt 71, Tel. 6702230 


NOTENVERWALTUNG FÜR CPC 
Noten und Punkte, 20 Optionen 
Info gg. Freiumschlag: P. Bader, 
Egerlandstr. 14, 7080 Aalen 





EXPO - SOFT 

Public Domain & Freesoftware 
IBM/Schneider, PC und Kompatible 
Disk ab DM 1,70 - Gratisinfokatalog 
S. Schülke, Wuppertaler-Str. 130 
5650 Solingen 01, Tel: 02 12/59 12.08 


G 





** KASSE/BANK 111 * CPC + PC * 

als Bankkontenführung, Haushalts-, Kassen- 
buch, kl. Gewinnrechnung m. Suchen- 
Sort-Druck-schnellste Eingabe 

CPC-CID 55,-159,—, PC 79,— 
ÜBERWEISUNG 111 CPC + PC 
Banküberweisungen aus einer einmal ein- 
gegebenen Datei auf Endlosvordrucken, 
schnell, bequem, einfach GPC-C/D 
55,-159,—,PC 79,— 

VOKABELTRAINER CPC + PC 

schnelle, einf. Eingabe-max. 2000 VOK- 
auch franz.Zeich-CD/D 25,-129,—,PC 39,— 
SCHALTBILD - CAD 1 CPC 

Schaltbilder mit dem GPC, alle gängigen 
Bauteile in Bauteilebibliothek mit Hardcopy 
für EPSON und Kompat. (NLQ/DMP) - Test 
s. Heft 5/87 S. 59 CID 45,—149,— DM 
SPALTEN 10 CPC 

2-10 Spalten, max. 80 Zeichen/2000 Felder 
rechnen (+/-)-Suchen-Sort-Drucken- 
einfachste Bedienung - C/D 45,—149,— DM 
Preise bei Vorkasse od. +NNGeb- Software 
D. Thiesen, Rathausstr. 70, 

5410 Höhr-Grhsn. Tel. 0 26 24/61 11 G 





STEUERMAT 
Lohn- und Einkommensteuer 88: 
Ausdruck direkt aufs Fornular, 


Analyse, alle Einkünfte, 89,— DM 
FORMULARPRINT 

Formularbearbeitung, 40,-DM 
FIBUMAT _ 
Einnahme-/Überschuß-Rechnung, 
Kassenbuch, Ergebnisabr., 172,— DM 


Für JOYCE u. IBM-PC: 5,25“ u. 3,5“ 
Demo: 15,— DM, Info: 80 Pig. RP 

FFSW, Farin, Elisabethstr. 65 

4460 Nordhorn, T: 059 211 3757 G 





CED: DER Editor für alle CPCs 

mit CP/M 2.2. 0. Plus! Schnell, 
kompakt, leistungsfähig! Voller 
Zeichensatz, Funktionstasten! 

30 DM, beide Versionen zs. 50 DM 
Schein/Scheck. Typ u. System 

ang. Info geg. 80 Pfg. Swaczinna, 
Heimhuder-Str. 66, 2000 Hamburg 13 


FINANZ-PAKET: PCW-JOYCE u. IBM- 
KOMPATIBLE 

1. FiBU: Konten bis zu 99999, Saldenliste, 
Bilanz, GuV, indiv.(!) BWA, Einnahmen/lb., 
USt, rechn. Konten, Kontenbl. (35 DM/1000) 
2. Finanzmathematik: Tilgungpläne, Zin- 
sen, Annuitäten,Raten,Rente, AFA (16 Prog.) 
3. Banküberweisungsdruckprogramm 
(nur Joyce) JOYCE 98 DM*IBM 158 DM 
(Info 80 Pf) Kellmann SOFTWARE, 
Wilhelmstr. 71, 4400 Münster G 





SIND SIE KREATIV! Entwerfen Sie 
Motive für Mode, Stickarbeiten, 
Strickvorlagen o. ä.? Testen 

Sie STICKEN, das Programm für 
das Design farbiger Rastergrafiken. 
Hardware angeben (GPC): 

DM 149, Demo-Disk DM 25 incl. HB. 
Schäfer, Amselweg 6, 8056 Neufahrn 





ACHTUNG !! ERWACHSENE 

7 Disk. 5 1/4 oder 3 1/2 mit delikaten 
Programmen nur DM 50,— VSiBar. 

M. Karbach - Remscheiderstr. 18 

5650 Solingen G 





ACTION? Logo, aber als 
DISK(ettenr)OMAN! Das Superding 

auf 3* Disk (CPCs + PCWs)! Nur 

10 DM Kennenlernpreis: HARY, 
Gärtnerstr. 14, 6602 Dudweiler G 





ACHTUNG SPORTKEGLERI! 

Biete an für PCW 8256/8512 
Tabellen-Programm Kegeln (27 K) 
Einzelspieler-Statistiken (28 K) 
Spielplan-Programm (26 K) 

Info: M. GRAF, WURZBURGER-SIr. 50a 
8707 VEITSHÖCHHEIM - 09 31/947 41 





TOTO-ELFERWETTE 30,— DM. Kniffel/ 
Yatzee 30,— DM. Biorhythmus 30,— DM. 
EAN-Code 60,— DM. Zusammen 

nur 120,— DM. Adressen-Telefon-Verwaltung 
mit Etikettendruck 80,— DM. 
Schein/Scheck an: 

Manfred Schmidtke, Leuzbacher Weg 55, 
5230 Altenkirchen 


BONZO‘S SUPER MEDDLER 

DAS SPITZEN-KOPIERPROGRAMM 
FÜR BAND-DISK-KOPIEN, 

auch headerlose, Turbolader, Speedlock 
(auch neueste SpeedlockTypen!). 

Für alle PCs. 3“ -Disk mit über 800 Lö- 
sungshinweisen (werden Ifd. ergänzt) nur 
DM 55,— + VK. 

Infos gg. Freiumschlag von SOFTWARE- 
VERTRIEB MARTINA HIPPCHEN, 
POSTFACH 100966, 5000 Köln 1 

Tel.: 02 21-21 5302 (20-22 Uhr) G 


Für Schneider CPC 664: Vortex-Speicherer- 
weiterung SP 256, Microsoft-Multiplan Pro- 
gramm-Disketten und Handbuch, Datei-Star, 
Starwriter I. Alles unbenützt zum halben 

Preis. VHS, Hauptstr.29, 7967 Bad Waldsee 


Biete an Hardware 


CPC 464 IFarbe/ NLQ 401/ 20 Cassl 2 Joy 
viele Extras/ gut erhalt. 

CPC int. alle 46 Ausgaben!! 

VHB 1.190 DM. Tel. 046 64/2 27 











VERKAUFE WEGEN SYSTEMWECHSEL: 
CPC 6128/GT 65 + Vortex FI-X + Data- 
recorder + MP 2 + Spiele + Anwender- 
programme + Zeitschriften + Bücher 
VB 1.100,— DM. 

Tel.: 061 21/50 1503 nach 18 Uhr 


Verk. GPC 6128 + GT 65 + Vortex FI-X 
+ Drucker DMP 2000 + reichl. Zubehör, 
auch einzeln!! Preis: VHS. 

Tel. 045 54/67 94 ab 18 Uhr 





Vortex SP 256/ Bos 2.1/ CPC 664 
DM 200,—. 0935272 33 ab 19 Uhr 





CPC 6128 grün + dbase II + multiplan 
+ textv. + minicad + Spiele + discs 
a. org. VB DM 800 - 071 31-1627 45 





CPC 464, grün + FDD1 + Drucker Pa- 
nasonic KX-P1091 + orig. Spiele 

+ orig. Anwend.soft. + 25 Disketten 
+ viel Zubehör + Literatur, 

Tel. 0 89/6 70 7933 





CUMANA-Zweitlaufwerk für 6128! 
NP DM 399,- für DM 250,-! (3") 
Tel. 083 06/5 39 





CPC 464, grün + DD1 + DMP 2000 
+ MP1 + div. Softw. + 6 Bücher 
+ PC Int. bis 11/88 VB 1000 DM 
Tel. 07026/7852 (18 Uhr) 





CPC 464 + DDIH. Tel: 0815115 17 13 





CPC 464, grün + 3“ Floppy + 20 Cass 
Disk 700,—. Andre Stolz, Heidestr. 1c 
6209 Aarbergen 2, Tel. 061 20-4187 
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CPC 464, grün + DDI-1 + DMP 2000 
+ MP-2 Multiface Two + Datei Star 
+ Discs, Zeitschr. DM 1.200,— 

Tel. 051 02127 81, ab 19.00 Uhr 





PC 1512, 640KB, CDISD, HD 30MB, 
Software, DM 2.300,-. Tel: 05544/7546 





* CPC 6128 

Verkaufe CPC 6128 (grün) + FI-XRS 

= DM 1000.-. Software, Textverarbeitung, 
FiBu, GPC-Bücher, auch einzeln, zus. 

DM 1200.- DM 

CHR. FUCHS, Tel. 041 3112 8665 





CPC 6128 (m. Grünmonitor), Daten 
Recorder, 2 Joysticks, Diskenbox, 
Disketten, Kassetten u. PC Schn.Intern.- 
Hefte von 9. 86 - 12. 88 m. Sonderheften. 
Preis: 950 DM. 

Tel.: 0514611889 ab 19.00 Uhr 


HÖCHSTPREISE für Ihren “GE- 
BRAUCHTEN“ bei COMPUTER-NEUKAUF 
TIEFSTPREISE 

10 MAXELL 3°CF2 DISKETTEN DM 5495 
10 No Name 35"MF2D DISKETTEN DM 24,95 
100 No NAME 5,25"2D DISKETTEN DM 69,95 


2 Farbbänder LC 10 schwarz DM 1995 
2 Farbbänder NECP 6 DM2995 
Staubschutzhaube EURO PC DM 12,95 


Info über weitere Artikel erhalten Sie von 
TREVI COMP, Postfach 21.06, Porta Nigra 
Platz 1, 5500 Trier, Tel. 651220 G 





Matrix - Drucker 

Star LC 10 cenir. nur 589,— 

Star LC 10 C nur 589,— 

Star LC 24-10 centr. nur 889,— 

dt. Ware 1 Jahr Garantie. 

Porto frei + 3,— NN Gebühren 
Heinrich Bruns, Versandhandel 

EDV, Thüler Str. 36 

2908 Friesoythe Tel. 04491839 G 


* EDV-ZUBEHÖR JOYCE-PCW-CPC-PC 
Farbbänder zu Traumpreisen! 
MAXELL 3* SUPERPREIS ! 
Diskettenlaufwerke 3,5“ 
PCWN51211640 anschlußfertig 
PCW Logitech-Maus f. DR Draw, 
DR Graph, DTP u. a. Programme 

m. Benutzeroberfläche JEEVES 
CPC SPIELE zum Sonderpreis! 
PCW + PC 1512Bildschirmfilter 
PCW PAPIERFÜHRUNG 8256/9512 
Joyce 8256 Printer Stand 80 
COMAL-80 MODUL FÜR CPC 
LocoScript 2.16 m D. Handbuch 
Loco Mail/Font/Spell/File 

COMAG KASSEILITBOX/LVICHART 
Trojan‘s Cadmaster Pack 

Public Domain Software CP/M 
MS-DOS Liste gegen DM 5,— 
INFOLISTE KOSTENLOS ! 

B. Welzel & P Wunsch GbR. 
Swebenhöhe 47, 2000 Hamburg 72 
T. 040/6 4364.47 BTX 0406436447 G 





Für CPC 464: VORTEX-Doppelfl. 5 114“ 

+ WS od. MP od dBll = 698,— I VOR- 
TEX-3 1/2°%-Floppy 708KB = 498,— DM 
Colormonitor = 449,— DM (originalverp.) 
RS232 Schnittst. f. 6128 = 148,-/WSIMPI/ 
dBll = 148,— DM Tel.: 06221/860942 


CPC 464, grün + DDI-} + NLQ 401 
CPC-INT. (ab Mai ’85) + 10 SONDERH. 
6 x Bücher + 21 x DATABOX + 15x 3" 
Disk. W. LÖBER, 064 38/36 73 nach 18 h 





Lichtgriffel nur DM 49,— 

Versand gegen Scheck/Nachnahme. Info 
gratis! Computer bitte angeben! Anschluß 
an jeden (!) Computer möglich. Standard- 
version für Schneider lieferbar. Firma 
Schißlbauer, Postfach 1171R, 8458 Sulzbach, 
09661/6592 oder 0941/99 99 15 bis 21 UhrG 





GELEGENHEIT w. Systemwechsel 

6128 Color, Vortex FI X RS, dBASE Il 
VarDAT II, Multiplan, Starwriter 

Budget, Manager, alle GPC + Sonder- 
hefte + Disk + Bücher 

061 03/337 61, Schneider, ab 18.00 Uhr 





Externes Netzteil für Schneider PC, 
120 Watt aus Commodore PC 10 mit 
Anschlußkabel passend für Schneider 
PC 151211640 nur 120,— DM. 


City-Computer W. Horesisi 
Berliner Straße 65, 3320 Salzgitter 1 
Tel. 053 41/1 68 001 6822 G 





Neue und gebr. Schneider & Amstrad PC 
Floppy/Festplatten/PC-MM und Farb- 
monitore. Neue und gebr. 464/664/ 
6128/Floppy/Drucker. BTX Modul 

398 DM. CPC Floppy 830 KB 5 1/4“ 

= 398 DM; 5 1/4* 360 KB = 315 DM. 
Vortex-Festplatten. Akustikkoppler 

ab 195 DM. Monitor GT 65; 

GT 640 = 380 DM; GT 644 neu 535 DM. 
Star und Epson Drucker. Ankauf bei 
Systemwechsel. Reparaturservice. 

Manfred Kobusch, Bergenkamp 8, 

4750 Unna, 023031 3345 G 


Suche Software 


MULTIPLAN für Joyce PCW 8256 
gesucht. Tel. 075 31/222 89 








Suche Hardware 


Suche CPC 6128 und “The Music 
Machine‘. Tel: 0.81 51/5 17 13 








Suche original Joyce Drucker 
Josef Rieder, Westernach 12 
Tel. 08051/5248 





Kaufe Joyce 8512. Möglichst mit 
Software. Klaus Kellner, 
05 51/4 71 72 ab 19,00 Uhr 





AZ-Te-Tejalt-to[-IgL-T-} 


PREISWERTE FARBBANDER 

für fast alle Drucker lieferbar 

sowie Computer-Etiketten in vielen Größen. 
Bitte Preisliste anf. 

Walter Kuhn, Hessenstr. 7, 

6340 Dillenburg 2 

Tel. 027 71132688 ab 18 Uhr G 





CPC-INTERN. 4/85 (0. 5.) - 9/87 
Sonderhefte GPC 1-4 + Joyce 1 
gegen Gebot, 04871/2195 ab 18h 





AMSTRAD PC 151211640 USER-CLUB 
bietet mtl. Zeitschrift, Software, 

Hilfe und mehr für alle! 

Info gg. Rückp. von Rolf Knorre, 
Postf. 20. 0102, 5600 Wuppertal 2 





NLQ 401 mit Traktor und einige Farbbänder 
zu verk., evil. Tausch gegen DMP 2000 

U. Popken, Postfach 1042, 

2940 Wilhelmshaven 





Verk. PC-Schn.Inter. - Hefte 3/85 - 11/88 
gegen Gebot, 06894/80686 





Reset-Schalter 10,— + Porto 
Rodriguez, Krankenhausstr. 56, 5030 Hürth 





CPC 464 + Joyst. + Softw. 280,— 

DDJ1 250,-, 64K-Erw. 100-, MP1 50,—, 
Lightp. 40,—, Maus 100,—, Microdes. 60,-, 
PC-Int. ab 3/85 + Lit. 80,— 

Tel. 0534514354 





Verkaufe CPC-International 
8/86 - 8.188 kompl. 100,— 
Tel. 07 1117528 39 





Haftetiketten 50 Formate, Info: 
M. Böhne, Försterw. 4, 3354 Dassel G 





Wer kopiert mir Word-Star von 
5 1/4“ Vortex auf 3“ Schneider? 
Ab 19 Uhr, 023 05/6 1650 





JOYCE-Freunde Raum 6000 
Erfahrungsaustausch, Interessengemein- 
schaft, Treffs, CHIFFRE 300189PC 


Suche Tauschpartner CPC! Kass. und Disc! 
CPC-Art egalll Christian Sternecker, 
Ringstr. 18, 2803 Weyhe-E. 











Suche Tauschpartner für JOYCE 
Peter Hafner, Liebermannweg 11527 
8400 Regensburg 





TAUSCHE CPC-Software 
Tel. 07 4113 36 36 





Suche Kontakt zu Vortex-Floppy-Besitzer 
Tel: 04954145 09 ab 18.00 Uhr 





Zu meiner Anzeige in Heft 10/88: 

Bitte nicht mehr anrufen, die Drähte glühen 
schon! Schreibt lieber! Karsten Dühren, 
Ahornweg 14, 6056 Heusenstamm 








Die Kontaktadresse: 

Schneider Computer Club München 
c/o Helmut Jungkunz, Zacherlstr. 14, 
8045 Ismaning, Tel.: 089/96 93 74 
M&T Mailbox: SCUG 














gr 


Ihr Partner für Hard- und Software 


Amstrad PC 1512 MM/SD mit 20 MB FileCard 1.899,— 
Amstrad PC 1512 MM/DD mit 20 MB FileCard 1.999,— 


Amstrad PC 1512 MM/DD mit 3,5“ Disc 720 KB 
+ 20 MB FileCard 2.050,- 


Amstrad PC 1640 MM/SD mit 20 MB FileCard 2.400,— 
Amstrad PC 1640 MM/DD mit 20 MB FileCard 2.700,- 


Amstrad PC 1640 MM/DD mit 3,5“ Disc + 
20 MBFileCard 


Amstrad PC 1640 MM/DD mit 3,5“ Disc, 
20 MB FileCard + LQ 3500 


CPC 464 kompl. mit Monitor 
CPC 6128 kompl. mit Monitor 


2.850,- 


3.250,- 
ab 399,- 
ab 799,- 





2 (Netzteil + HF-Modulator) 99,- 
DDI-1 (3* Floppy für CPC 464) 499,- 
FD-1 (3* 2. Floppy für 6128) 299,- 
DMP 2160 (Drucker incl. Druckerkabel) 499,— 
Druckerkabel für 464 + 6128 35,- 
Scartanschlußkabel (464 + 6128 an TV) 28,- 
Verlängerung 464 (Monitor-Keyboard) 20,- 
Verlängerung 6128 (Monitor-Keyboard) 25,- 
Joystick für 464 + 6128 26,- 
Adapter für 2.Joystick (alle CPC’s) 15,- 
3* Markendisketten 10er Pack 60,- 
Amstrad Textsysteme ab 999,- 
20 MB FileCard 650,- 
14“ Flatscreen Monitor s/w oder amber 248,- 
Game-Port für PC (1512 + 1640) 50,- 
Nashua 5,25“ 2D Disketten 10er Pack 20,— 
DMP 3160 (incl. Druckerkabel) 599,- 
Farbband DMP 3160 2er Pack 31,- 


Schneider Euro-PC mit Mouse + Pad ab 1.298,- 


Schneider Tower mit Mouse + Pad ab 2.398,- 
Schneider Tower mit 20 MB FileCard 2.995,- 
Brother M-1724 L (24 Nadeln) 1.398, — 
Seikosha SL-80 IP (24 Nadeln) 785,— 
TANDON PCI/XTIAT auf Anfrage 
Schul- und Mengerrabatt auf Anfrage. Lieferung per Nach- 


nahme oder Vorauskasse. Angebote sind freibleibend. Pro- 
spekte nur gegen Freiumschlag. 


mm Sat H GmbH 


Postfach 10 25 22, 3500 Kassel 
Telefon 0561/8228 46 








—— AMSTRAD-Computer — 
— Software + Zubehör — 








AMSTRAD-Computer auf Anfrage 











JOYCE-Zubehör: 

Farbband 8256/8512 12,90 
Papierführung 29,50 
3“-Markendisketten 10 St 59,90 
Farbband 9512 17,95 
Typenräder 9512 25,00 
Typenräder SD15 25,00 
Diskettenbox f. 50 Disk. 16,95 
3D Chess 49,90 
GSX-Grafik-Treiber 49,90 
PC-Zubehör: 

5 1/4“-Disketten 2D 10 Stück 6,95 
3,5*-Disketten MF 2DD Stück 2,50 
20MB Filecard 698,00 
Druckerkabel par. 17,70 
STAR LC10 (deutsch) 570,00 
STAR LC24/10 (deutsch) 890,00 
Druckerständer 29,95 
Farbband LC10 15,95 
Farbband NEC P 2200 16,95 
Abdeckhaube Tastatur 1512/71640 16,95 
Genius Dyna Mouse 135,00 
128 KB RAM-Erweiterung 198,00 
2. Laufwerk 3 1/2“ 459,00 
Turbo 959-Joy-Stick 29,95 
Haftetiketten endlos 100 Stück 8,95 
DOS-Lernprogramm 49,70 
TextMaker 148,00 
Finanzbuchhaltung 398,00 
Fakturierung 398,00 
Weitere Preise auf Anfrage! 

Lieferung per Nachnahme oder Voraus- 
kasse (Versandkosienpauschale 11,40 
pro Paket) 








Kosmalla & Partner 
Datenverarbeitung GmbH 
Bliesstr. 5, 6700 Ludwigshafen 
Tel.: 0621-51 9749 
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Tempeinoler Damm 120 
1000 Berlır 42 
Am U-Bni Tempelhof 
1el. 752209 
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Schuster Electronic 
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Beratung 
Vertrieb 
Service 


BÜRO-ORGANISATION - DATENTECHNIK - Vertriebsgesellschaft mbH 
4000 Düsseldorf 1 - Friedenstraße 13 - Tel. 0211/3080771 





Frankfurt/Main 


Psrzrsın K 


Coururz: G 





Offizieller Partner von * Amstrad * Delta Gold » NEC + Vor- 
tex * Synthetronic + Quantor + DELA * Markt & Technik Ver- 
lag * Hüthig Verlag * Sybex Verlag + Boeder *DataTechnics 
* Maxell * Kao * InterQuadram * 

Ständig aktuelle Angebote auch für Addonics, Atari ST, Ami- 
ga, Oceanic und viele mehr. Mit dem Background, den nur 
ein Fachgeschäft bieten kann: Auf die allermeisten Geräte 
1 volles Jahr Garantie. Support bei Problemen, Wartungs- 
verträge usw. Und das Ganze mitten in Frankfurt: 


Zeil 26 (gegenüber Stadtbücherei, Nähe Konstablerwache) 
Petersen Computer KG ul 















mputer 


PC Hard- und Software 


Branchen- u. Sonderlösungen 


Microsoft AMSIRAD SIEMENS 
— Vertragshändler — 


2 HH 70 -» Wandsbeker Zollstr. 98 
®& 656 00 36 Fax 6567457 





AMSTRAD/SCHNEIDER 


GmbH 


üroelectronic 
Holländische Str. 121, 3502 Vellmar, Tel.: 0561/828160 








Löhne/Ostwestfalen 


ı) Computer- & Softwarezentrum für Norddeutschland: 
j\ 





AMSTRAD-, SCHNEIDER- & VORTEX Regionalhändier & SERVICE- 
CENTRALE. Sämtl. Computer, Drucker, Peripherie & Zubehör 
v. A=Z, EDV Papier etc. « Discs 
Fritz OBERMEIER COMPUTER-TELEFAX-BTX=-HiFi-VIDEO+TV+ 
+ NEC+EPSON-TANDON-BROTHER-SEIKO-OKI-STAR-LOCO-etc. 
am Bahnhof-Bünder Straße 20-4972 LÖHNE 1-Tel. 05732 6126/3246 








Micro-Computer, Periıphene und Software GmbH 


MEPS 


AMSTRAD, SCHNEIDER, SHARP, COMMODORE, 
NEC, STAR, EPSON, SOFTWARE-ERSTELLUNG 
Gibitzenhofstr. 69, 8500 Nürnberg 70, Tel. 09 11/4250 18 





AMSTRAD/SCHNEIDER 


Vertragshändler | 





Computer Knüppel AG 
Computer und Büromaschinen 
Riehenring 81 (MUBA) 

4058 Basel 

Telefon (061) 691 1262 

Fax (061) 6910051 














Eintragungen 
im Händlerverzeichnis, 
nach Städten geordnet, 
kosten je mm Höhe 
6,—- DMbei einer 
Spaltenbreite von 
58 mm. 


Einträge möglich 
mindestens 
6 x innerhalb eines 
Insertionsjahres. 


Nähere Informationen: 


DMV-Verlag 
Wolfgang Brill 
Telefon (05651) 80 09-51 








— 


Anzeigenschluß 
für die 
Ausgabe 3/89 

von 
PC International 
ist der 
10.1.89 
Erscheinungstermin 
ist der 
22.2.89 
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Dietmar Eirich 


In den Schluchten der 
Bytes 


Paul Neff Verlag, 
Wien 1988, 261 Seiten, 
ISBN 3-7014-0264 -7, 
Preis: DM 19,80 


’Computer sind auch nur 
Menschen’ — wer diese tief- 
greifende Erkenntnis gewon- 
nen hat, muß schon ein Lieb- 
haber dieser elektronischen 
Quälgeister sein. Oder, wie 
der Autor Dietmar Eirich, ein 
Kenner der Materie. Mit die- 
sem Buch hat er jedenfalls be- 
wiesen, daß man mit einem 
Schuß Humor der kalten Com- 
puterwelt einiges abgewinnen 
kann. Das ’Computer-Bre- 
vier’ ist eine Sammlung von 
Stichworten zum Thema Com- 
puter, die in teils humoristi- 
‘scher, teils gedankenvoller 
Form erklärt werden. Als 
Überschrift verwendet der 
Autor den Titel ’Nützliches 
und kurioses Computeralpha- 
bet’, und dies ist es dann auch. 
Hier werden nicht nur Begrif- 
fe wie BASIC, Btx, CAD, 
Disketten oder ähnliches be- 
handelt, auch Themen wie 
Analogsalat (haben Sie sich 
schon einmal Gedanken über 
die Begriffe analog und digital 
gemacht?), Dateiverwaltung 
für Wolldeckenzähler oder 
Brötchen mit Computerknete 
(der Einsatz eines PC beim 
Bäcker) werden anschaulich 
und nicht bierernst dem Leser 
verabreicht. 


Interessant ist hier vor allem, 
daß die Themen nicht wie im 


Katalog, sondern teilweise so- 
gar als Erlebnisberichte ge- 
schrieben sind. 

Zu empfehlen ist dieses Buch 
vor allen denen, die ein Fami- 
lienmitglied oder jemanden 
aus den Freundeskreis tagtäg- 
lich hinter einem Computer 
verschwinden sehen, und nach 
dem Warum fragen. Dazu 
kann man nur sagen, lesen Sie 
dieses Buch, danach werden 
Sie es verstehen. 
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Ein alphabetisches Nachschlage- 
'k zum Betriebssystem. 
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Ray Duncan (Hrsg.) 
MS-DOS von A...Z 


Vieweg-Verlag 1988, 
296 Seiten, 

ISBN 3-528-04621-X, 
Preis: DM 78, — 


Das aus dem Amerikanischen 
übersetzte Buch enthält sämtli- 
che internen und externen MS- 
DOS-Kommandos, in alpha- 
betischer Reihenfolge geord- 
net. Dabei wird auch die er- 
weiterte MS-DOS-Version 
3.3 abgehandelt. Dabei geht 
das Buch sehr ausführlich auf 
die Kommandos ein, jeder 
Eintrag setzt sich aus folgen- 
den Punkten zusammen: 


— Name des besprochenen 
Befehls, 

— die jeweilige DOS-Ver- 
sion, die den Befehl un- 
terstützt sowie Informa- 
tionen zu seiner Netz- 
werkfähigkeit, 

— Die Befehlsausführung 
und das Ergebnis, 


— Das Eingabeformat und 
eventuelle Parameter, 

— Eine ausführliche Be- 
schreibung des Befehls 
mit Anwendungsbeispie- 
len, um das Erlernte di- 
rekt auszuprobieren, 

— eventuell vorhandene 
Beendigungscodes sowie 

— eventuell auftauchende 
Systemmeldungen, also 
Fehlermeldungen oder 
Systeminformationen. 

Dem Leser wird dazu anhand 

einer Erklärungsseite ein 

kompletter Überblick über 
den Aufbau des Buches gebo- 
ten, so daß man sich sehr 
schnell zurechtfindet. In der 

Einleitung befindet sich eine 

Zusammenstellung aller Be- 

fehle nach den verschiedenen 

Funktionsgruppen, wie Sy- 

stemkonfiguration, Batch- Be- 

fehlen, Befehlen zur Dateiver- 
waltung oder Konfigurations- 
befehlen. 

Die Beschreibung der MS- 

DOS- Befehle ist sehr ausführ- 

lich und leicht verständlich 

und geht weit über das norma- 
le Maß hinaus. 

Den Abschluß bilden die neu- 

en Befehle der erweiterten 

MS-DOS 3.3-Version, die 

ebenfalls ausführlich erklärt 

und nach bestimmten Krite- 
rien sortiert dem Leser darge- 
bracht werden. 

Alles in allem ist das Buch 

’MS-DOS von A...Z’ jedem 

zu empfehlen, der einen IBM- 

oder kompatiblen PC sein ei- 
gen nennt. Einziges Manko ist 

der relativ hohe Preis von DM 

78,—, der sich jedoch beim 

Lesen wieder bezahlt macht. 


(Bernhard Bodenheim) 


Hans Georg Schumann 


Grundkurs Informatik 


SYBEX-Verlag 1988, 
ISBN 3-88745-092-2, 
Preis: DM 27,50 


Informatik gehört heutzutage 


zu den an Hochschulen meist- 
besuchten Unterrichtsfächern, 
was wohl auch eine Folge des 
Siegeszuges von Computern 
in fast allen menschlichen Le- 
bensbereichen ist. Das Buch 











von Hans Georg Schumann 
bildet dabei eine grundlegende 
Einführung in die Informatik, 
die auf den Informatik-Unter- 
richt in der Sekundarstufe II, 
Informatik- Kurse der Volks- 
hochschule oder als Zusatzli- 
teratur für Studium oder 
Selbstlernpraxis hinzielt. Da- 
bei behandelt der Autor die 
Praxis am Computer von 
Grund auf, angefangen beim 
Thema ’Vom Problem zum 
Programm’, über spezielle 
Umsetzungen von Kontroll- 
funktionen in die Computer- 
sprache, bis hin zu fertigen 
Modulen und Bibliotheken, 
sowie der direkten Programm- 
entwicklung. Die Übungspro- 
gramme sind alle in Turbo 
Pascal 4.0 programmiert wor- 
den, Besitzer der 3.0-Version 
werden auf Unterschiede zur 
’großen’ Version bei den ein- 
zelnen Programmteilen auf- 
merksam gemacht. 
Interessant ist, daß es zu je- 
dem Kapitel des Buches eine 
Reihe von Übungsaufgaben zu 
lösen gibt, so daß das neu Er- 
lernte auch im Gedächtnis haf- 
ten bleibt. 

Am Ende des Buches befindet 
sich außerdem eine Übersicht 
über die verwendeten Turbo 
Pascal-Befehle, so daß der Le- 
ser bei den Übungsaufgaben 
sofort einen Überblick über 
den vorhandenen Wortschatz 
hat, und nicht erst lange nach 
dem Benötigten suchen muß. 
Alles in allem empfiehlt sich 
das Buch überwiegend für die- 
jenigen, die sich in der Ausbil- 
dung auch privat über Infor- 
matik informieren wollen. 


(Bernhard Bodenheim) 
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5 folgeaden Fällen 


Max. 27 Felder pro Datensatz, 50 Stellen 
teeak It pro Feld, 35.000 Sätze pro Datei mini- 


apket die Heldıng: 


maler Disketten-Speicherbedarf! 


Die wichtigsten Leistungen von Vol.5 auf einen Blick: 

—- Generiert Standard-Direktzugriffsdateien (BASIC) die auch in Eigen- 
programme eingebunden werden können. 

— Vollautomatisch generierte Maske zur Datenerfassung, Datenände- 
rung und Datenlöschung. 

— Reservierung des nötigen Speicherplatzes auf der Diskette, mit au- 
tomatischer Erweiterung bei Erreichen der Reservierungsgrenze. 


— Gelöschte Datensätze werden vorrangig neubelegt, bevor weitere 
Sätze verbraucht werden. 


— Auf Wunsch Datentransfer aus vorhandenen in neuangelegte Dateien. 
— Automatische Eintragung neuer Dateien in das Disketten-Hauptmenü 
— Alle Programme werden auf der RAM-Floppy gehalten. 


- Listenerstellung (Drucker oder Bildschirm) mit automatischer Spal- 
tenformatierung. 


- Freie Wahl der zu listenden Datenfelder und deren Reihenfolge. 
- Daten können selektiert (ausgewählt, ausgeschlossen) werden. 
— Auf Wunsch Summen numerischer Spalten. 

— Freie Wahl der Sortierung; Mehrfachsortierkriterien. 


— Auf Wunsch Speicherung der im Dialog festgelegten Listenpara- 
meter. 


BildEditor 


Bimısa 


— Ohne Lernaufwand SOFORT voll anwendbar, keine Befehls- 
wörter. 

— Nach 1-2 Minuten können Sie bereits über eine komfortable 
Maske Daten erfassen. 

— Druckmasken für die beliebig sortierte Datenauflistung am Bild- 
schirm oder am Drucker brauchen Sie nicht erst mühselig zu 
programmieren, sie werden vollautomatisch für beliebige Daten- 
felder und Spaltenfolgen generiert. 

— Bei mehrseitigen Auflistungen am Bildschirm, Direktsprung zu 
jeder beliebigen Seite. 

— Einmal gewählte Druckparameter werden auf Wunsch gespei- 
chert, die entsprechenden Listen können jederzeit abgerufen 
werden. 


Sofort Ergebnisse statt (frustrierender) Erlebnisse! 


99, -— DM* 


unverbindliche Preisempfehlung 


Best.-Nr.: 220 3“ Diskette 


Ein Programm zur Herstellung und punktge- 
nauen Bearbeitung von hochauflösenden Grafi- 
ken und Bildern und deren Ausdruck auf dem 


JOYCE-Drucker. 


Hinweis: Das Programm arbeitet nicht mit Peripheriege- 
räten oder Programmen, die den Arbeitsspeicher unter 


CP/M einschränken. 


Leistungsumfang 

Auf der mitgelieferten 3*- Diskette finden Sie alle zur Arbeit mit dem 
Bildeditor benötigten Programme und Dateien. Die Bedienungsanlei- 
tung beschreibt ausführlich die Erstellung einer Startdiskette. Für 
Turbo-PASCAL-Programmierer steht zusätzlich der Programmtext auf 
Diskette zur Verfügung. 


Funktionen: e 
— Die Grobbearbeitung ermöglicht die schnelle Anderung eines Block- 
grafikzeichens (8x8 Bildschirmpunkte). 


— Die Feinbearbeitung erlaubt die punktweise Bearbeitung eines Bil- 
des mit mehreren komfortablen Optionen, wobei die Position des 
Zeichencursors in X/Y-Koordinaten am Bildschirm angezeigt wird. 


- Die Detailbearbeitung stellt Ihnen eine komfortable Lupe zur Ver- 
fügung, die auch eine Symmetrie- und Copy-Funktion enthält. 


— In allen Bearbeitungsmodi können Invertier-, Lösch- und Zeichen- 
funktionen aufgerufen werden; bei der Grobbearbeitung ist es zu- 
dem möglich, Texte in das Bild zu bringen. 

— Das Dateimenü erlaubt das Laden und Speichern sowie das ’Hinzu’- 
Laden (Überlagerung zweier Bilder) von Bildern. 

— Die Hardcopy-Funktion stellt vier Ausdruckformate zur Verfügung: 
Neben der Originalgröße ist ein doppelt breiter, ein doppelt hoher 
sowie die Kombination der beiden Vergrößerungen möglich; zusätz- 
lich kann der Versatz vom linken Rand aus zeichenweise angewählt 
werden. 


59, — DM* 


unverbindliche Preisempfehlung 


Best.-Nr.: 219 3“ Diskette 








® Funktion: Komfortable Erstellung eigener Zeichensätze auf PCW 8256/ 
“ 8512 und deren Darstellung am Bildschirm! Ausdruck von ASCII-Files in 
diesem Zeichensatz unter CP/M Plus. 
Leistungsumfang: CD.COM ist der Character-Designer, der Editie- 
rung oder Neuerstellung von Zeichensätzen und deren Speicherung er- 
laubt. CD-PRINT druckt vorformatierte ASCII-Texte auf dem Joyce-Drucker 
oder anderen Druckern in dem gewünschten Zeichensatz aus. 
CRAZY, ORIGINAL, LOCCHAR und SCRIPT sind mitgelieferte Zeichensät- 
ze. SETUP.COM erlaubt als Zugabe die Vorwahl einiger Systemparameter, 
z.B. die der seriellen Schnittstelle, der Tastaturgeschwindigkeit und der 
DIRDRY-SIRDIEIG: 


Funktion: Graphische Darstellung von mathematischen Funktionen und 
beliebigen Meßreihen auf Bildschirm oder im Großformat auf dem Drucker. 
Leistungsumfang: Neben den arithmetischen Grundfunktionen sind auch 
weitere Funktionen darstellbar, die z.B. unter Mallard-Basic nicht zur Verfü- 
gung gestellt werden. Es können mehrere Funktionen und Meßreihen (die- 
se wiederum mit mehreren Meßwerten gleichzeitig) dargestellt werden. 


VOL. für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 


Best.-Nr.: 215 3“ Diskette 899, 


n : 


Eine unvoroe Dateivrwaltung für PCW 8256/8512 zur Erstellung eigener Dateien. 
. 9: MASKE ist das Vorprogramm, mit dem Sie die Feld- 
nd Längen sowie die Länge des Suchbegriffs voreinstellen 


=Rdat ist das Hauptprogramm, welches die Daten der gewünschten 

| Datei verwaltet. Neben der Eingabe von Daten in die Maske sind mehrere 
Sucharten, so z.B. auch Jokersuchen möglich. Jede Datei kann max. acht 
Felder enthalten, wovon jedes max. 40 Zeichen enthalten darf. Die Gesamt- 
länge eines Datensatzes darf 255 Zeichen betragen. 

x Dieses Programm stellt eine Rundschreib- (Mailmerge-)funktion 
für t zur Verfügung. In einen in Laufwerk M: befindlichen ASCII- 
Text (z.B. mit RPED erstellt) werden automatisch vom Anwender vorausge- 
wählte beliebige Einträge aus beliebigen SUPERdat-Dateien an beliebiger 
Stelle eingefügt. Weiterhin können 30 beliebige Datensätze in eine für Lo- 

t lesbare Datei umgewandelt werden. 

PERcal Der Taschenrechner zu SUPERdat. Dieser bietet neben den 
Orundrc nenn auch Winkelfunktionen, quadratische- und Prozentfunk- 
tionen. Eine Klammerebene und Memory-Funktionen vervollständigen das 
Leistungsangebot dieses Programms. 


VOL.I für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 


Best.-Nr.: 216 3“ Diskette 


Feld] 


' Ein BASIC.Programm zum millimetergenauen Ausfüllen von Tabellen, 

Vordrucken und Formularen. Feld-Tab ist menügesteuert und bietet die An- 
wahl der einzelnen Funktionen, wie unter LocoScript gewohnt. Geben Sie 
Seitenlänge, Zeilenabstand und Tabulatoren in Millimetern ein, bestimmen 
Sie Schriftweite, Schriftart und Text. Text kann mit LocoScript erstellt wer- 
den und nach Umwandlung in eine ASCII-Datei in Feld-Tab eingelesen wer- 
den. Weitere ASCII-Editoren können ebenso verwendet werden wie der 
komfortable programminterne Seiteneditor. Ein unentbehrliches Werkzeug! 


Ein Grafikpaket für Statistiken, Geschäftspräsentationen und viele andere 

gen Anwendungen! Über ein Menü sind folgende Funktionen wählbar: 
- Balkendiagramme - Kurvendiagramme - Strichgrafik 

- Punktediagramme - Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während der Arbeit mit Gsxplot die wich- 

tigsten Funktionen. Alle erstellten Grafiken können sowohl am Bildschirm 

als auch auf dem Drucker dargestellt werden. Gsxplot braucht den Ver- 

gleich mit wesentlich teurerer Software nicht zu scheuen! 


VOL.IN für Joyce/PCW 8256/8512 zwei Disketten 
mit ausführlicher Bedienungsanleitung 


Best.-Nr.: 217 59, -— DM* 


unverbindliche Preisempfehlung 


‚D M Wr - Angebot 


Ein Buch/Disketten- Paket. Der Autor me Sie- a 

bert zeigt in diesem Buch Möglichkeiten der Text- | se 
verarbeitung auf, die Sie von LocoScript nicht er- 

wartet hätten... Von der Pike auf werden Sie an 

den Umgang mit Schablonen und Standardlayout 

herangeführt. Einige Abstecher führen Sie an- 

hand anschaulicher Beispiele an Textverarbeitung 

und CP/M (ED/Wordstar) heran. 

Aus dem Inhalt: 

— LocoScript Spezial - Softwaretraining für Fort- 

geschrittene 

— Fehler im System: Wie rette ich meinen Text? 

— Joyce-Tasteninstallationsdatei für das Pro- 

gramm Wordstar 

— Aleatorische Poetik: Der Computer dichtet = - 
Auf Diskette: Über 50 Dateien mit Schablonen, Eiieion, en Serien: 
Rundschreiben, Formularen, Etiketten, Druckbeispielen, Schriften, 
Bildschirm-Installationen uvm. 

Leinen-Hardcover, 207 Seiten, 

3*-Diskette Best.-Nr. 401 


_ Aus dem Data Becker-Angebot 


LOGO kan mehr, als Sie denken. LOGO ist heute eine anerkannte Sprache 
bei vielen ehrgeizigen Programmprojekten. Das reicht bis hin zur Erstellung 
von Kl-Programmen. Hier das Buch für CPC- und Joyce-Besitzer, die viele Vor- 
teile dieser Sprache kennenlernen wollen. Um nur einige Stichworte zu nen- 
nen: Listenverarbeitung, Prozeduren, Rekursionen, Sortierroutinen, Masken- 
generator. Nutzen Sie diese Sprache für Ihre eigenen, ehrgeizigen Programm- 
ideen. 


410 Seiten Best.-Nr. 417 )M 39,- 


Von der Textverarbeitung zum Programmieren — das bietet Ihnen das große 
Joyce-Buch. Hier werden alle Themen abgedeckt, die für Joyce-Nutzer inter- 
essant sind. Spezielle Anwendungen mit LogoScript, Personalisieren des Sy- 
stems mit CP/M. Multiplan auf dem Joyce, Uhr in BASIC, Grafikprogrammie- 
rung in LOGO und viele andere interessante Themen warten auf Sie im gro- 
Ben Joyce-Buch. 


418 Seiten Best.-Nr. 418 


POJPUNDIEIITORSENEN pur im Westentaschenformat 


Best. -Nr. 450 
Best.-Nr. 52 


Wer einen Joyce gekauft hat, der möchte schnell und effektiv mit diesem 
Rechner umgehen. Joyce für Einsteiger wird dieser Anforderung voll gerecht. 
Von Kleinigkeiten, wie dem Anschluß des Gerätes oder dem Kopieren der Sy- 
stemdiskette bis hin zur optimalen Arbeit mit LocoScript finden Sie alles Not- 
wendige. Dazu eine kleine Einführung in BASIC und LOGO und natürlich in 
das Betriebssystem von CP/M-Plus. 


248 Seiten Best.-Nr. 453 DM 29, 


Aus dem Franzis Verlag-Angebot 


Der Autor hat es sich zur Aufgabe gemacht, den Joyce als vollständigen Com- 
puter zu beschreiben. Er vermittelt dem Joyce-Besitzer eine Menge interes- 
santer und nicht alltäglicher Kenntnisse. Außerdem ist das Buch angefüllt mit 
Programmlistings, die für den fertigen Einsatz konzipiert sind. Aus diesen Li- 
stings lassen sich zahlreiche ausgefeilte Programmtricks entnehmen. Der Auf- 
bau und die Bedienung des CP/M-Betriebssystems werden ebenfalls für den 
Joyce-Anwender, der sich nicht mit einfacher Textverarbeitung begnügen will, 
behandelt. Insgesamt stellt das Buch eine interessante Programmiierliteratur 
für den technisch interessierten Joyce-Eigner dar. u 
ca. 160 Seiten Best.-Nr. 425 DM 3% 


Aus dem Hatig Nartag-Arigeboi 


Dieses Buch füllt einerseits die Lücken, die die zum Joyce mitgelieferten 
Handbücher noch offen gelassen haben, und gibt andererseits viele Tips zur 
praktischen Arbeit mit LOCO-SCRIPT. 
Sie erfahren, wie man Briefköpfe erstellt, Formulare ausdruckt, eine Phrasen- 
datei anlegt, mit dem Drucker kleine Firmen-Logos erstellt oder die verschie- 
denen LOCO-SCRIPT-Optionen effektiver nutzt. So kann das offensichtlich 
fehlende Mail-Merge doch mit Hilfe eines kleinen BASIC-Programms nach- 
empfunden werden. Zahlreiche Hardcopies und eine Übersicht sämtlicher 
LOCO-SCRIPT-Menüs mit den zugehörigen Untermenüs helfen sowohl Neu- 
lingen als auch »alten Hasen« gleichermaßen. a r 
125 Seiten, Best.-Nr. 419 DM 35,—" 
* Unabhängig von der Anzahl der bestellten Bücher berechnen wir für das Inland 3,— DM 
bzw. für das Ausland 5,- DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 
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Ein Leckerbissen für 
Grafik-Freunde: ein 
Vorspann-Generator ä 
la Amiga. 


CPC-Programme: 


Animation 

Ein heißer Tip für Grafik-Freunde: Mit 
unserem Animations-Programm lassen 
sich Grafiken in eine wunderbare Anima- 
tion zusammenfügen. Das Abtippen dau- 
ert auch nicht lange, da das Programm 
nur wenige KBytes umfaßt. 


Vorspanngenerator 

Wer schon Kontakt zu einem Amiga hat- 
te, wird auch die Vorspanne kennen, die 
sehr oft vor dem eigentlichen Programm 
ablaufen. Hier werden unter anderem 
Freunde und Bekannte gegrüßt, und im 
Hintergrund laufen Grafiken ab. Mit un- 
serem Programm schaffen Sie sich ein 
variabel gehaltenes Vorspann-Gestal- 
tungs-Programm, das auch Ihnen viel 
Freude bringen wird. 


Tips und Tricks: 


Hinweise und ein Programm zeigen Ih- 
nen, wie Sie Texte aus der zweiten RAM- 
Bank des CPC 6128 retten können. 


Lister bringt Ihnen formatierte Listings 
auf dem Drucker. 


Die 1IKB-Programme zum Sammeln. 


Weitere Tips und Tricks zu Ihrem 
Rechner. 


Review: 


Mini-Office II: ein Datenbanksystem für 
den CPC. Was es leistet und kostet, er- 
fahren Sie in der nächsten Ausgabe. 


PCW: 
Für Sie getestet: die VORTEX-Festplatte 
WD 2000 für den JOYCE/PCW. 


Backgammon: das beliebte Spiel nun 
auch auf dem JOYCE realisiert. Starke 
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Mieribrer 


Grafiken lassen den Spielspaß nicht zu 
kurz kommen. 





Backgammon-Spieler kommen voll auf ihre Ko- 
sten mit einer Backgammon-Adaption für den 
PCW 

Andere Drucker am JOYCE anzuschlie- 
ßen, ist bekanntlich keine Schwierigkeit 
mehr, aber wußten Sie auch, daß es mög- 
lich ist, den JOYCE-Drucker an anderen 
Rechnern zu betreiben? 


Im Test: Kontomat PC. Ein Programm 
zur Einnahme-/Überschußrechnung. 
Unser Testbericht gibt Aufschluß über 
die Benutzbarkeit. 


Viel Spaß verspricht unser BASIC2- 
Programm “Oh, Mutter“ für den PC. 
Hier wird Ihr scharfer Verstand gefor- 








Für dieses PC-Spiel brauchen Sie kein Werk- 
zeug, sondern nur einen scharfsinnigen Ver- 
stand. 


Zlas 


»PC International« 
erhalten Sie ab 

25. Januar bei Ihrem 
Zeitschriftenhändler 


Die Inserenten 
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JOYCE Sonderheft 4 


Jetzt 120 Seiten! Supersoftware und Informationen. 


DMV präsentiert 





Die erfolgreiche Reihe der JOYCE Sonderhefte wird um einen Knüller erweitert. 


Die JOYCE Sonderhefte sind Sonderpublikationen aus der Redaktion der PC International für 
JOYCE und JOYCE Plus. Sie enthalten ausschließlich noch nicht veröffentlichte Programme. 


Aus dem Inhalt: 


— Strickmustergenerator 

— WordStar Verbesserungen 

— Bundesligasimulator 

— Super Reaktionsspiel 

— FILEMANAGER 

— Pull-Down-Menüs 

— Stichwortverzeichnis 

— Astrologieprogramm 

— Diskettenmonitor 

— Hauptstädte raten in LOGO 

— Statuszeile für dBase und Basic 

— Hardcopyroutine für 24-Nadler 

— LOGO macht Schachteln 

— dBase-Literaturverwaltung 

— Universelles Werkzeug zur Ver- 
änderung von dBase-Dateien 


JOYCE Sonderheft 4: 


Best.-Nr. 367 20,—- DM* 





JOYCE DATABOX Sonderheft 4 
Hier finden Sie alle Programme 
und Dateien auf vier Disketten- 
seiten. 

470 KB nur vom Besten... 

Und dennoch behalten wir die alten 
Preise bei! 

Das Leistungsverhältnis, das sich 
für Sie bezahlt macht. 

Erhältlich als 3*-Disketten für alle 
PCW 8256/8512/9512 

Diskette 1 enthält alle Programme 
lauffähig. Diskette 2 enthält die 
Quellcodes. 


Disk. 1: Best.-Nr. 3671 30,— DM* 
Disk. 2: Best.-Nr.362 24,— DM* 


Kombipack Disk. 1 und 2: 
Best.-Nr. 3673 48,— DM* 


Falls Ihr Händler das JOYCE Sonderheft nicht führt, nutzen Sie die Bestellkarte und bestellen direkt beim Verlag 














Das JOYCE Sonderheft 1 ist ausverkauft. 


Sonderheft 
Joyce ‚ 


— 3D-Plotter 
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JOYCE Sonderheft 2 


Aus dem Inhalt: 


— Pascal Compiler 

— dBase-Handbuch 

— Kybernetik-Lernspiel 

- Quickregister 

— Spaltendruck (LocoSript) 
— Entscheidungsgenerator 
- Grafmod-Erweiterung 


— Adreßverwaltung — Reset ohne Datenverlust 
— Archivverwaltung — 43 Spuren schreiben und lesen 
— Kalender - ein Super-Werkzeugkasten für 


— Funktionszeichner (LOGO) 
— Lister f. Basicprogramme 


Alle im Heft veröffentlichten Programme sind auch auf 3“-Disketten er- 
* hältlich. Diskette 1 enthält alle Programme lauffähig. Diskette 2 enthält 
die Quellcodes. 


(Bitte nicht mehr bestellen) 


JOYCE Sonderheft 3 


Aus dem Inhalt: 
— Memory-Spiel SonserheiiN 
— Mini-DTP-Programm ajaa 

— Vokabeltrainer 

— Zeichenprogramm in LOGO 
 — 17-und 4-Spiel 

- Kopierprogramm 

— RAM-Monitor 

— Druckerspooler 


dBase 
u.a. mehr, insges. 24 Programme 





JOYCE Sonderheft 2: Databox Diskette 1: JOYCE Sonderheft 3: Databox Diskette 1: 
Best.-Nr. 302 20,— DM* Best.-Nr. 304 30,- DM* Best.-Nr. 359 20,- DM* Best.-Nr. 360 30,- DM* 
Kombipack Disk. 1+2: Databox Diskette 2: Kombipack Disk. 1+2: Databox Diskette 2: 
Best.-Nr. 306 48,— DM* Best.-Nr. 305 24,- DM* Best.-Nr. 362 48,—- DM* Best.-Nr. 361 24,- DM* 


Noch zu erhalten: Die Diskette zum JOYCE Sonderheft Nr. 1 Best.-Nr. 303 30,— DM* 


= Uriabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 3,— DM bzw. für das Ausland 5,— DM Porto und Verpackung. 


Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag - Postfach 250 - 3440 Eschwege 








{ 
vr‘ 


Das neue CPC-Sonderheft ist da! 
Mit dem neuen CPC-Sonderheft er- 
schließen Sie sich eine völlig neue 
Welt der Software. Eine geballte La- 
dung hochwertiger Programme aus 
den Bereichen Anwendung und 
Spiel wird die Herzen aller CPC- 
Besitzer (und die Taktfrequenz aller 
CPCs) höher schlagen lassen. 

Die informativen Grundlagenartikel 
vermitteln interessante Themen auf 
leicht verständliche Art, ideale Lektü- 
re für Einsteiger und Forigeschritte- 
ne. Programmierer werden ihre eige- 
nen Programme künftig noch effekt- 
voller gestalten können, eine große 
Sammlung von Tips & Tricks zu Ba- 
sic, Assembler und CP/M bietet ein 
äußerst vielfältiges Spektrum für alle 
möglichen Anwendungsgebiete. Für 
die Hardware-Freunde haben wir ei- 
nen kompletten und absolut lei- 
stungsstarken Sprachsynthesizer 
vorbereitet. Die komplette Bauanlei- 
tung sowie die zugehörige Software 
erwarten Sie im neuen CPC- 
Sonderheft. 


Software - Listings — Infos für alle Schneider CPC! 
Sonderheft 1 beinhaltet eine abwechslungsreiche 
Sammlung beliebter und nützlicher Programme aus 
den Sparten Anwendung, Spiel und Tips & Tricks. 
Der große DFÜ-Sonderteil zeigt Ihnen alles Wis- 
senswerte zur Datenfernübertragung auf und vermit- 
telt Basiswissen. Insgesamt 28 aktuelle Listings — 
Software satt im CPC Sonderheft 1/86! 

SH-Nr.1 Best.-Nr.: 307 

SH-Nr. 2 Best.-Nr.: 308 


Programmiersprachen — Anwendungen in Turbo- 
Pascal und mannigfaltige Informationen stehen im 
Mittelpunkt des 4. CPC-Sonderheftes. Mit über 200 
Seiten praller CPC Informationen, Tips und wertvol- 
len Programmen, das ideale Sammelsurium für je- 
den CPC-Anwender. Interessiert!? — dann sollten 
Sie sich schnell entscheiden, denn essind nur noch 
wenige Restposten verfügbar. 


Best.-Nr.: 310 
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Sonderheft 


LU: 


Grundlagen: 
Alles über Floppy- 
Programmierung 


SLEICH 
3D-Iron 
° Auxilia = Im Reich der Magie 


Anwendungen: 
Musikprogramm de Luxe 
Chemie - ganz einfach“ 





Power für Ihren CPC! Über 500 KByte leistungsstar- 
ke Software aus vielen Anwendungsbereichen brin- 
gen Ihren CPC auf Trab. Ob Einsteiger, Fortgeschrit- 
tener oder Profi — hier finden Sie alles, was Ihr Com- 
puter braucht. Viele Tips & Tricks, Grundlagenarti- 
kel, Spiele und Anwendungen lassen dieses 
Sonderheft zu einer unentbehrlichen Arbeitshilfe 
werden. 


Best.-Nr.: 311 
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Für Vortex-Anwender;, 


DOS-Er@Blterung 
Disktool 


keiztare ET zieh 
Soundprogrammierung 
leicht gemacl 


Spiele: 
Crazy Stamps 
Tennis Manager 


Übersicht: 
Diskettenutilities 


Spieletips: 


Lösungshilfe 
Lageplane 





Anwendungen: 

— Music-Star ist ein Programm der Super- 
lative. Per Joysticksind Sie in der Lage, ei- 
gene Musikstücke schnelistens zu pro- 
grammieren. Die entsprechenden Noten 
werden dabei ständig auf dem Bildschirm 
angezeigt, es gibt viele Optionen zur Ma- 
nipulation und Nachbearbeitung. Musik- 
fans dürfen diesen Hit nicht versäumen. 

Spiele: - - 

— Auxilia entführt Siein die Welt von Magie 
und Zauber. Ein packendes Strategie- und 
Actionspiel. (auf anderen Computern 
auch unter ARCHON bekannt) 

— Mit Supertron 3D erwartet Sie ein effekt- 
volles Actionspiel mit echter 3D- 
Atmosphäre. 

Tips & Tricks: 

— Wie Sie ihre selbstgeschriebenen BASIC- 
Programme erheblich verkürzen können 
zeigt unser BASIC-Programmcode- 
Kompressor. 


Hardware: 

- Komplette Bauanleitung für einen 
Sprachsynthesizer. Die zugehörige Soft- 
ware sucht ihresgleichen, vergleichen 
Sie. ; 


Grundlagen: 


— Ausführlicher Bericht über den Floppy- 
Controller und seine Programmierung. 


Reviews — Spiele - Anwendungen- ein wahres 
Hit-Sammelsurium birgt.das CPC-Sonderheft 3/86. 
Die Spielprogramme im Überblick und viele Tips, Lö- 
sungen und Karten zu Computerspielen und Aben- 
teuern. Begeistern wird Sie auch der Flugsimulator 
— ein echter Leckerbissen zum Eintippen! Fantasy- 
und Adventurefreunde werden sich über das erste 
Rollenspieladventure Monstergartensicherlich ge- 
nauso freuen, wie die Hardware-Freunde über die 
Echtzeituhr zum Selbstbau. 

Best.-Nr.: 309 





Grundlagen, viele Tips, nützliche Anwendungen 
undtolle Spielprogramme — ein Muß für jeden CPC- 
Anwender. Dieses Sonderheft behandelt das ge- 
samte Spektrum möglicher CPC-Einsatzgebiete und 
bietet Informationen für jedermann. U.a. komplette 
Lagerbuchführung, relative und sequentielle Datei, 
neues Disketten-DOS, viele Lernprogramme, CP/M 
und Turbo Pascal und, und, und... 


Best.-Nr.: 312 
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